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i.  introduction 

Volume  1  of  this  report  carries  a  full  description  of  the  complete 
program  but  om*ts  mathematical  details  of  the  mode)  developec  to 
predict  the  nitric  oxide  {MQV*  emissions  from  aircraft  gas  turbine 
combustors  and  also  the  details  of  two  computer  programs  developed 
as  part  of  the  study  for  obtaining  predictions  from  the  model.  It 
is  the  purpose  of  Volumes  2  and  3  of  the  report  to  present  full  de¬ 
scriptions  of  both  the  model  and  the  computer  programs. 

It  is  convenient  to  consider  the  model  ir.  two  parts,  one  part 
being  concerned  with  the  NOx  formation  process  and  the  other  with 
modeling  the  fiov  behavior  within  gas  turbine  combustors.  The  con¬ 
venience  arises  not  only  due  to  the  basic  difference  In  the  studies 
or  these  two  parts,  but  also  due  to  the  fact  that  a  separate  computer 
program  has  bean  developed  for  each  part.  This  approach  has  been 
adopted  in  the  interests  of  economy  of  computation  as  calculation 
of  the  necessary  data  for  the  determination  of  the  NOx  formation 
process  requires  appreciable  computer  time,  but,  of  course,  the  data 
once  collected  can  be  applied  to  any  combustor  calculation  with  the 
same  reference  conditions  (in  this  case,  combustor  Inlet  conditions) 
of  pressure  and  temperature.  The  computer  program  developed  for  this 
task  has  the  name  NOXRAT,  and  its  function  is  to  compute  the  rate 
terms  of  the  NOx  formation  process  and  all  relevant  thermodynamic  data 
for  a  series  of  fuel-to-air  ratios  with  a  common  reference  state. 

Volume  2  of  this  report  is  solely  concerned  with  the  nitric  oxide 
formation  process.  It  presents  a  mathematical  description  of  the 
process,  a  full  description  of  the  program  NOXRAT,  and  also  includes 
a  section  which  is  essentially  a  user's  manual  for  the  program.  Volume 
3  produces  the  same  details  for  the  flo*.-  model  developed  to  describe 
the  flow  conditions  in  a  gas  turbine  combustor.  The  corresponding 
computer  program  is  named  GASNOX  and  it  is  so  arranged  that  the  rate 
terms  and  all  relevant  thermodynamic  data  computed  ;n  NOXRAT  are  punched 
onto  a  deck  of  computer  cards  which  serves  as  input  data  to  the  main 
program  GASNOX. 
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The  objective  of  this  volume  of  the  report,  therefore,  is  to 
present  the  theory  behind  the  NQx  formation  process  and  details  of 
the  computer  program  developed  for  its  application. 
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I 

THE  NOx  FORMATION  PROCESS  *  ! 

While  engine  exhaust  emissions  are  often  expressed  as  nitrogen 
oxides  (NOx),  eras  nitrogen  dioxide  (NO^Ji-  the  pollutant  present  in  the 

i*  — 

exhaust  gas  as  it  leaves  the  engine  is  almost  completely  nitric  oxide, 
NO,  with  only  a  few  per  cent  of  NO^  (Ref  1).  The  conversion  to  NOx  or 
NO^  is  made  because  man/  of  the,.techniques  used  to  measure  nitric  oxide 
require  first  that  it  be  oxidized  to  nitrogen  dioxide.  Thus,  inside 

i 

the  engine,  the  important  oxide  of  nitrogen  to  consider  is  nitric 
oxide, 'NO. 

Several  authors  have  proposed  reaction  schemes  for  nitric  oxide 
formation,  e.g. ,  Caretto,  Sawyer,  a&d  Starkman  (Ref  1),  Bartok,  et  al 
(Ref  2)‘,  Newhail  (Ref  3),  Lavoie,  Heywood,  and  Keck  (Ref  4).  The  set 
of  reactions  proposed  by  Lavoie,  et  al  (Ref  4)  is  the  most  complete 

I 

for  predicting  nitric  oxide  formation,  and  it  has  been  evaluated 
experimentally  for  a  range  of  equivalence  ratios  (O.JM-S),  pressures 
(10-30  atm),  and  temperatures  (2200-28i)0  deg  K)  in  a  spark- i gni t ion 
engine  (Refs  4  and  5)*  These  conditions  are  directly  comparable  to 
those  occurring  in  the  gas  turbine  combustor  primary  zone  as  shown  by 
Heywood  et  al  (Ref  6).  and  the  reaction  scheme  does  predict  NO  emission 
levels  which;  are  in  good  agreement  with  measurements  made  on  such 
combustion  systems.  , 

The,  set  of  reactions  included  in  the  analyses  of  References  4,  5, 
and  6  are  incorporated  in  the  model  and. are  shown  below. 


N+NO 

*=3? 

n2+° 

0) 
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(2) 

N+OH 
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(3) 
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n2-oh 

(4) 
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Note  that  the  reaction  2N0  h’2+02  ^as  keen,omi tted  from  this  scheme 

as  it  is  very  slow  and  does  not  proceed  directly,  in  References  4 
through  6  the  rate  constants  selected  for  these  reactions  were  taken 
from  Schofield  (Ref  7)  except  for  reaction  3  which  was  taken  from 
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Campbell  and  Thrush  (Ref  8).  These  constants  are, 
fcj  =  2  x  10“  n 

k2  =  2  x  10"n  exp  (-7.  I/RT) 

k,  =  7  x  10“ 11 
-> 

^4  —  5  x  10  ^exp(-»10.8/RT) 
k<_  =  6  x  10  ^exp(-24.0/RT) 
k,  =  8  x  l0“Uexp(-24.0/RT) 

and  are  in  cnf'/sec-molecule.  R  is  in  kcal/gm-roole-deg  K.  Since  the 
equilibrium  constants  for  these  reactions  are  known,  the  kinetic  scheme 
is  thus  completely  defined. 

Recently  completed  analyses  of  data  and  cos'relations  available  in 
the  latest  literature  have  raised  some  question  as  to  the  reliability 
of  the  above  constants.  A  group  at  Leeds  University  (Ref  9)  reports 
kj  better  correlated  in  the  form  Aexp(-E/RT)  while  both  Leeds  and 
Newhall  (Ref  3)  show  reaction  2  to  be  correlated  more  satisfactorily 
in  the  form  AT  exp(-E/RT).  Newhall  also  correlated  reaction  6  with 
a  pre-exponential  factor  3-6  times  greater,  and  an  activation  energy 
1.16  times  greater,  than  the  corresponding  values  determined  by 
Schofield. 

With  this  lack  of  agreement  of  the  rate  constants,  it  was  decided 
to  represent  all  six  reactions  in  the  '•eaction  scheme  in  the  general 
form, 

k.  =  A.T.”  exp{-E./RT)  (7) 

This  format  allows  maximum  flexibility  in  comparing  the  different  fits 
of  the  kinetic  rate  data  for  each  of  the  expressions.  Further,  as  new 
data  and  correlations  become  available,  it  will  be  a  simple  matter  to 
adjust  the  three  constants  to  correspond  accordingly  to  those  correlations 
and  data. 

Not  all  of  the  above  reactions  are  equally  important  over  the 
equivalence  ratio  and  temperature  range  of  interest.  The  first  two 
reactions,  the  Zeldovich  chain  mechanism,  are  the  two  most  important 
reactions  at  high  temper jtures  (g-eater  than  2200  deg  K.)  in  fuel-lean 
mixtures.  The  importance  of  this  pjir  of  reactions  is  well  established. 
The  third  reaction  becomes  important  in  fuel-rich  mixtures.  Reactions 
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4,  5,  and  6  involving  as  an  intermediary  become  important  at  tem¬ 
peratures  about  2000  deg  K.  it  can  be  shown  that  the  small  amount 

of  present  is  in  equilibrium  with  the  NO  and  other  reactions  with 
NOj  need  not  be  included  (Ref  5 )• 

Conditions  in  gas  turbine  combustors  fall  into  ail  of  these 
regimes,  but  calculations  indicate  that  the  reactions  4, 

5,  and  6  do  .iot  contribute  greatly  to  the  nitric  oxide  formation  rate. 

In  fact,  if  one  accepts  the  probable  limits  of  accuracy  for  any  such 
kinetic  scheme,  a  case  may  be  made  for  their  exclusion.  However,  these 
reactions  are  included  in  the  reaction  scheme  fo»-  the  sake  of 
completeness. 

in  order  to  apply  this  reaction  scheme  to  gas  turbine  combustors, 
it  is  necessary  to  be  able  to  predict  the  concent  r*  ion  levels  of  all 
species  active  in  the  set  of  six  reactions  specified  above  at  all  thermo¬ 
dynamic  states  typical  of  the  combustor.  At  the  pressure  and  temperature 
levels  that  exist  in  such  combustors  during  high  thrust,  low  altitude 
operation,  the  hydrocarbon  oxidation  reactions  go  rapidly  to  completion 
compared  with  the  nitric  oxiue  formation  processes.  In  order  to  predict 
these  specie  concentrations  therefore,  the  following  assumptions  are  made: 

a.  Combustion  is  mixing  controlled  and  not  rate- 1 imi ted, 
and  therefore,  in  the  combustor,  N2»  02,  0,  OH,  H,  and  H2 
concentrations  are  the  equilibrium  concentrations  corresponding 
to  the  combustor  inlet  temperature  and  pressure,  and  *o  the 
equivalence  ratio.  This  assumption  limits  the  usefulness  of 

the  model  to  high  pressure,  high  temperature  operating  conditions, 
but  it  is  precisely  these  conditions  at  which  most  nitric  oxide 
is  produced  and  are  therefore  of  most  interest  to  this  study. 

b.  N  and  N20  concentrations  are  given  by  the  steady-state  assumption; 
That  these  concentrations  are  not  in  equilibrium  but  are  in 
steady-state  with  NO  can  be  shown  by  deriving  rate  equations 

for  N  and  N20  which  have  relaxation  times  short  compared  with 
the  NO  rate  equation. 

if  these  assumptions  are  applied  to  Equations  1  through  7.  then 
the  change,  f*  ,  in  total  nitric  oxide  per  unit  time  per  unit  volume. 
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that  results  from  chem  cal  reaction  over  a  fixed  element  can  be  written 
as 

f  =  2MN0(i-°O 

where  M^g  is  the  molecular  weight  of  NO,  the  local 

nitric  oxide  concentration  divided  by  the  equilibrium  nitric  oxide 
concentration,  Rj  is  the  "one-way"  equilibrium  rata  of  reaction  1, 
i.e.,  Rj  =  kj  [nJ£  £N0Je;  K]  =  Rj/Ciy^)  with  R2  and  R?  defined 
analogously  to  Rj  but  for  reactions  2  and  3;  and  R^  *  k6  9y>je 
and  K2  -  R6/(R4+R5). 

Lt  is  interesting  to  consider  the  form  of  the  equation  above  when 
applied  to  the  gas  turbine  combustor.  In  this  case  the  thermodynamic 
base  state  is  represented  by  the  combustor  inlet  pressure  and  tempera¬ 
ture, -both  of  which  are  nonvariable  with  "time  for  a  fixed  operating 
condition.  If  the  fuel-to-air  ratio  is  specified,  therefore,  the  terms 
Rj,  R^,  Kj  and  K2  all  become  constants  as  a  consequence  of  assumptions 
a  and  b  above.  The  molecular  weight  M^g  is  a  constant,  hence  the 
only  variable  isO^  and  the  equation  reduces  to  the  simple  form, 

dNO/dt  =  f (NO) 

which  may  readily  be  integrated  to  follow  the  nitric  oxide  concen¬ 
tration  levels  through  the  combustor. 

Maximum  utility  has  been  made  of  this  simplicity,  chiefly  in  the 

interests  of  reducing  the  computer  operating  costs  for  each  sample 

case  tested  in  the  flow  model.  The  computational  procedure,  as 

previously  explained  in  the  introduction,  was  separated  into  two 

tasks;  the  first  task  primarily  determines  the  rate  terms  R, ,  R,, 

I  o 

Kj ,  and  K2  for  a  specified  combustor  inlet  temperature  and  pressure  over 
the  complete  range  of  fuel-to-air  ratios  that  cause  sufficiently  high 
temperatures  to  form  nitric  oxide,  and  the  second  task  computes  the 
flow  conditions  throughout  tne  combustor  and  uses  the  data  collected 
from  task  one  to  predict  nitric  oxide  emission  levels. 

A  computer  program  has  been  developed  for  each  task  and  the 
program  for  Task  1  will  be  described  in  the  next  section. 
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3.  PROGRAM  NOXRAT 
3.1  INTRODcwHON 

3*1.1  Program  Function  and  Capabilities 

Program  NOXRAT  is  a  modified  version  of  CEC,  a  NASA  developed 
*  digital  computer  program  written  in  Fortran  IV  (Refs  10,  11  and  12). 

NOXRAT  is  designed  to  evaluate  the  chemical  equilibrium  products,  the 
3  adiabatic  flame  temperature,  and  the  kinetic  properties  used  in  the 

nitric  oxide  formation  model  (previously  described)  for  the  combustion  oi 
a  reactive  fuel,  or  a  fuel  mixture  with  an  oxidant  or  mixture  of  oxidants. 
NOXRAT  iteratively  calculates  the  equilibrium  properties  of  the  ombustion 
products  based  on  a  minimized  Gibbs  free  energy.  In  a  typical  equilibrium 
computation  NOXRAT  prints  the  following  properties  for  each  assigned  fuel- 
to-air  ratio: 

a.  The  equilibrium  temperature  and  pressure;  the  sonic  velocity, 

the  enthalpy,  entropy,  mean  molecular  weight,  (i)V/^P)T, 

the  heat  capacity,  and  the  heat  capacity  ratio  (C  /C  ),  of 

*  "  p  v 

the  combustion  stream.** 

b.  The  mole  fraction  of  each  of  the  combustion  products  present 
at  equilibrium  at  concentrations  greater  than  5  x  10_^.* 

c.  The  chemical  formula,  weight  fraction  in  the  total  fuel  or 
oxidant,  and  the  base  enthalpy,  temperature,  density,  and 
physical  state  of  each  of  the  specified  reactants." 

d*  The  total  oxidant  to  total  fuel  weight  ratio,  the  per  cent 
fuel,  the  equivalence  ratio,  and  the  average  density  of  the 
.  reaction  mixture. 

e*  The  equilibrium  mole  fraction  of  each  of  the  species  of 
r  interest  in  the  ni-tric  oxide  kinetic  scheme  (Ref  18) 

and  the  equilibrium  mole  fractions  of  C^,  CO,  and  CO^. 
f .  The  molecular  weight  and  the  adiabatic  flame  temperature  of 
the  combustion  products;  the  assigned  inlet  pressure;  the 

*7 


Normal  output  of  CEC. 
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fuel-to-alr  ratio;  and  the  atomic  composition,  inlet  tem¬ 
perature,  and  enthalpy  of  both  the  fuel(s)  and  the  oxidant(s) 
For  each  assigned  pressure  the  program  also  prints  and  punches: 

a.  The  atomic  composition  of  the  fuel  (CxHy) ;  the  inlet  air 
temperature;  a  code  number  identifying  the  set  of  kinetic 
constants  used  in  the  NO  rat;  formation  calculations; 
the  assigned  pressure;  and  the  stoich-ometric  equivalence 
ratio. 

b.  For  each  specified  fuel-to-air  ratio:  the  mixture  ratio 
(mass  of  fuel  to  mass  of  fuel  and  air);  the  equivalence 
ratio;  the  density  and  adiabatic  flame  temperature  of  the 
combustion  products;  the  equilibrium  concentration  of  NO, 

CO,  C^s),  and  CH2  (unburned  fuel);  and  the  kinetic  parameters 
Rj,  Rg,  K] ,  and  K2  where  Rj  and  Rg  are  forward  reaction  rates 
for  reactions  1  and  6  and  Kj  and  K2  are  ratios  of  forward 
reaction  rates  used  in  the  kinetic  scheme  (see  Appendix  V). 

NOXRAT  also  permits  calculation  of: 

a.  Chemical  equilibrium  for  assigned  temperatures  and  pressures. 

b.  Theoretical  rocket  performances  for  both  frozen  and  equi¬ 
librium  compositions  during  expansion. 

c.  Chapman- Jouguet  detonation  properties. 

The  latter  two  options  were  not  exercised  in  this  study. 

3-1-2  Analysis  Procedures 

The  analytical  procedures  on  which  NOXRAT  is  based  are  described 
in  Section  2.  A  detailed  description  of  the  changes  that  have  been 
incorporated  into  these  procedures  to  permit  calculation  of  the  reac¬ 
tion  rate  constants  and  the  thermal  properties  used  in  the  chemical 


These  parameters  are  used  to  compute  the  rate  of  change  of  the  NO 
mass  fraction  due  to  chemical  reaction  by: 


where  M^q  is  the  molecular  weight  of  NO,  ^  is  the  gas  density, 
|N0j  is  the  mass  fraction  concentration  of  NO  and  is  the 
ratio  of  NO  concentration  to  the  NO  concentration  at  equilibrium. 
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reaction  scheme  for  the  formation  of  nitric  oxide  are  presented  in 
the  appendices  of  this  report.  Reference  to  any  of  these  procedures 
is  unnecessary  for  operation  of  the  computer  program. 

3.1.3  Report  Arrangement 

The  main  body  of  the  report  begins  with  a  section  in  which  the 
input  data  necessary  for  the  solution  of  any  case  are  described  in 
detail;  this  includes  instructions  for  preparing  and  supplying  these 
data  to  the  program  and  a  sample  case  in  the  appropriate  format.  The 
next  section  contains  a  discussion  of  the  various  types  of  output  data 
which  are  obtained  from  the  program  and  also  the  output  data  from  the 
sample  case.  Following  that  is  a  section  containing  miscellaneous 
information  regarding  the  operation  of  the  program  with  the  CDC  6600 
computing  system.  The  next  section  is  a  description  of  the  error  mes¬ 
sages  prin'ted  by  the  program. 

The  first  appendix  consists  of  a  general  discussion  of  the  over¬ 
all  logic  structure  of  the  program.  The  next  appendix  gives  the  Fortran 
nomenclature  for  the  major  new  variables  i.icorporated  into  the  original 
CEC  program.  The  remaining  appendices,  except  the  last  two,  provide 
detailed  description  of  the  changes  made  to  existing  routines  and  of 
the  subroutines  which  have  been  developed  and  incorporated  into  the 
program,  one  appendix  for  each  routine.  The  appendix  for  each  new 
subroutine  contains  a  presentation  of  the  input  and  output  variables, 
an  internal  Fortran  nomenclature,  a  description  of  the  step-by-step 
calculation  procedure,  and  a  Fortran  listing  of  the  Subroutine.  The 
last  two  appendices  are  respectively  a  listing  of  the  program  in  its 
entirety  and  a  listing  of  the  THERMO  data. 

3.2  INPUT  DATA 

3.2.1  General  Description 

The  input  data  to  Program  NOXRAT  is  nearly  identical  with 
that  of  NASA's  Program  CEC.  Although  the  input  format  for  CEC 
has  been  described  in  3  preliminary  guide  (Ref  13)  and  detailed 
in  a  NASA  report  (Ref  14),  NREC  I.js  elected  to  present  here 
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a  description  of  NOXRAT  input  (and  output)  data.  This  description 
is  suitable  to  allow  the  reader  to  understand  the  mechanics  of  how 
to  operate  the  program.  Much  of  this  information  is  taken  directly 
from  Reference  13* 

Program  input  data  will  be  discussed  under  four  categories. 

Three  of  the  categories  are  required  and  one  is  optional.  The  three 
required  categories  and  the  code  names  by  which  they  will  be  referred 
are  as  follows: 

a.  Library  of  thermodynamic  data  for  reaction  products  (THERMO 
data). 

b.  Oata  pertaining  to  reactants  (REACTANTS  cards). 

c.  Namelist  data  which  includes  the  type  of  problem,  required 
schedules,  and  options  (NAMELISTS  Input). 

d.  The  optional  category  of  data  are  chemical  formulas  of 
species  which  are  singled  out  for  special  p-jrposes  (OMIT 
and  INSERT  cards). 

THERHO  Data 

The  thermodynamic  data  are  in  the  form  of  7  least  squares  coef¬ 
ficients  (aj)  for  the  following  equations: 


QpT  ^ 

R  1 

rQ3~Z  ■+ 

♦cvr* 

(i) 

Hr  = 
f?T 

a,  + 

fh.'T3-*-  +  ac- 

-V  — 

(2) 

_ 

a>T-* 

QaT  -*  a*; 

z. 

T  -*■ 

(3) 

C~r° 

«  Ht  - 

C  ° 

^T_ 

w 

RT 

RT 

For  each  species,  two  sets  of  coefficients  are  included  for 
two  adjacent  temperature  intervals.  The  data  provided  cover  the  tem¬ 
perature  intervals  300  deg  K  to  1000  deg  K  and  1000  deg  K  to  5000 
deg  K. 
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The  supplied  data  for  each  species  were  made  by  the  PAC  program 
described  in  NASA  TN  D-4097  (Ref  15)-  For  the  gases,  the  PAC 
program  calculated  the  thermodynamic  functions  from  the  molecular 
data  given  in  JANAF  (Ref  16).  For  the  condensed  species,  the  thermo¬ 
dynamic  functions  were  taken  directly  from  JANAF.  However,  NAS*  added 
the  functions  at  the  transition  points  since  they  were  not  included 
in  the  JANAF  data.  The  PAC  program  does  a  least  squares  fit  of  the 
functions  for  the  two  specified  temperature  intervals.  The  fits  are 
constrained  to  give  consistent  data  at  transit;on  points  and  at  the 
common  interval  temperature  (1000  deg  K). 

Heats  of  formation  and  transition  were  also  taken  from  JANAF. 

They  were  combined  with  sensible  heats  to  give  assigned  enthalpies 
Hj°.  By  definition, 

H-r 

It  has  been  arbitrarily  assumed  that  H°2gg  jg  *  ^^f^298.l5* 

5  then  becomes 

For- the  JANAF  reference  elements,  h°2gg  jg  *  In  general,  H°T  # 
(AkH°f)T  for  T  298.15°K.‘ 

REACTANTS  Data 

Reactants  data  consists  of  the  following  physical  data  for 
each  of  the  reaction  species  in  the  combustion  stream. 

a.  Atomic  symbols  and  formula  numbers. 

b.  Relative  weights  or  number  of  moles  (for  fuel  in  total  fuels 
or  oxidant  in  total  oxidants). 

c.  Enthalpy. 

d.  Physical  state  (solid,  liqi-id,  gas). 

e.  Temperature  associated  with  enthalpy  in  item  c  above. 

f.  Density. 


(5) 

Equation 

(6) 
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g*r  * 

A  « 


g  i 
&  * 
e  ? 


§£' 


8 

K 

i?£ 

I 

I 

£<• 


5-  . 


£ 


^T_ 


NAMELISTS  Data 

NAMELISTS  data  is  specified  on  two  input  NAMELISTS;  only  the 
first  is  necessary  for  generation  of  the  chemical  equilibrium  and 
kinetic  rate  data  of  interest.  The  second  NAMELIST  is  associated 
with  the  rocket  performance  option  of  NOXRAT  described  in  the  intro¬ 
duction  to  this  report.  This  latter  option  was  not  exercised  in 
this  study  but  will  be  described  in  the  following  subsection.  The 
information  required  in  the  first  NAMELIST  is: 

a.  The  type  of  problem. 

b.  One  or  more  pressures. 

c.  One  or  more  temperatures  for  assigned  temperature  problems 
(e.g. ,  rocket  problems  with  an  assigned  chamber  temperature). 

d.  The  relative  amount  of  fuel(s)  and  oxidant(s). 

The  information  requ ? red  in  the  second  NAMELIST  is: 

a.  The  pressure  ratio  schedule. 

b.  The  subsonic  area  ratio  values  (optional). 

c.  The  supersonic  area  ratio  values  (optional). 

d.  Whether  only  frozen  or  equilibrium  performance  is  to  be 
calculated  (optional). 

OMIT  and  INSERT  Data 

OMIT  and  INSERT  cards  are  optional.  They  contain  the  names 
of  particular  species  in  the  library  of  thermodynamic  data  for  the 
specific  purposes  stated  below. 

OMIT  Cards.  These  cards  list  species  to  be  omitted  from  the 
THERMO  data. 

INSERT  Cards.  These  cards  contain  the  names  of  condensed  species 

only. 


3.2.2  Detailed  Description  of  Input  Data 

The  information  required  to  prepare  the  input  data  for  a  case 
is  furnished  in  the  table  given  below.  This  information  contains  a 
description  of  each  input  item  as  well  as  a  description  of  the  form  in 
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which  these  items  are  written  on  input  data  sheets.  The  descriptions 
of  the  input  items  refer  frequently  to  several  points,  relevant  to  the 
selection  of  input  values,  which  are  discussed  in  the  subsequent  sub¬ 
section.  The  discussions  of  these  points  provide  additional 
detailed  information  useful  in  preparing  the  input  data  for  any  case. 

The  first  input  item  read  by  Program  NOXRAT  is  the  code  word 
THERMO.  The  second  input  line  contains  the  three  temperature  values 
300,  1000,  5000.  This  input  Is  followed  by  the  thermodynamic  data  for 
any  number  of  species.  The  last  line  of  the  THERMO  input  contains  the 
code  word  END  and  follows  the  last  set  of  species  data  (see  point -a). 

Input  Type  of  Fortran 


Line 

Locat i on 

Item 

Number 

Symbol 

Description 

1 

1-6 

A 

This  is  the  code  word 

1 ’THERMO"  that  identi¬ 
fies  the  beginning 
of  the  thermodynamic 
data 

2 

1-10 

FP 

TL0W 

Low  temperature  for 
lowest  temperature 
interval  of  thermo¬ 
dynamic  data 

2 

11-20 

FP 

TMID 

Common  temperature 
for  the  two  tempera¬ 
ture  intervals  of 
the  thermodynamic 
data 

2 

21-30 

FP 

THIGH 

High  temperature 
for  highest  temperature 
interval  of  thermo¬ 
dynamic  data 

3 

1-12 

A 

DATA 

Species  name 

3 

19-24 

A 

DATA 

Date 

3 

25-26 

A 

DATA 

Atomic  symbol 

3 

27-29 

FP 

DATA 

Atomic  formula  number 

3 

30-31 

A 

DATA 

Atomic  symbol 

3 

32-34 

FP 

DATA 

Atomic  formula  nunfeer 

Input 

Type  of 

Fortran 

14 

Line 

Location 

Item 

Number 

Symbol 

Description 

3 

35-36 

A 

DATA 

Atomic  symbol 

3 

37-39 

FP 

DATA 

Atomic  formula  number 

3 

40-41 

A 

DATA 

Atomic  symbol 

3 

42-44 

FP 

DATA 

Atonic  formula  number 

3 

45 

A 

DATA 

Species  phase  {$  «* 
sol  id ;  L  «  1 cquid; 

6  =  gas) 

3 

46-55 

FP 

DATA 

Low  temperature 
of  temperature 
interval 

3 

56-65 

FP 

DATA 

High  temperature 
of  temperature 
interval 

3 

80 

int 

NCD 

Integer  1  to 
identify  card 

4 

•  1-15 

al 

FP 

DATA 

Coefficient  in 
equations  1-4 
for  upper  tempera¬ 
ture  interval 

4 

16-30 

a2 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
upper  temperature 
interval 

4 

31-45 

a3 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
upper  temperature 
interval 

4 

46-60 

a4 

FP 

DATA 

Coefficient  in 
equations  1-4 
for  upper  tempera¬ 
ture  interval 

4 

61-75 

a5 

PP 

DATA 

Coefficient  in 
equations  1-4  for 
upper  temperature 
inteival 

15 


Location 

Input 
i  tern 

Tvoe  of 
Number 

Fortran 

Symbol 

Description 

80 

int 

NCD 

Integer  2  to  identify 
card 

1-15 

36 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
upper  temperature 
interval 

16-30 

a7 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
upper  temperature 
interval 

31-45 

al 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
lower  temperature 
interval 

46-60 

a2 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
lower  temperature 
interval 

•  61-75 

33 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
lower  temperature 
interval 

€3 

int 

NCD 

Integer  3  to  identify 
card 

1-15 

a4 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
lower  temperature 
interval 

io-3G 

a5 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
lower  temperature 
interval 

31-45 

% 

FP 

DATA 

Coefficient  in 
equations  1-4  for 
lower  temperature 
interval 

l.i  ne 

Location 

Input 

1  tern 

Type  of 
Number 

Fortran 

Symbol 

Description 

6 

4 6-60 

a-, 

FP 

DATA 

Coefficient  in 
equations  !-*»  for  . 
lower  temperature 
interval 

6 

SO 

int 

NCD 

Integer  k  to  identify 
card 

Lines  3-6  are  repeated  for  each  species  in  the  thermodynamic 
data.  The  iast  line  of  the  thermodynamic  data,  desiqhated  as  line  N 
below,  contains  the  word  END.  This  word  is  a  signal  to  the  computer 
that  it  has  reached  the  end  of  the  thermcdyramic  data. 

N  1-3  A  This  is  the  code  word 

"END*'  that  identifies 
the  end  of  the  thermo¬ 
dynamic  data 

The  next  set  of  input  data  read  by  Program  NOXRAT  are  reactants' 

> 

cards  (see  point  These  cards  are  required  for  all  problems;  they 

contain  specific  c_i.a  on  the  reactants  to  be  combusted.  The  first'  item 
in  the  set  contains  the  code  word  REACTANTS;  the  last  card  in  the  set  i 
is  blank.  In  between  the  first  and  last  cards  may  be  any  number  of 
cards  up  to  a  maximum  of  15,  one  for  each  reactant  species  be*ng  con¬ 
sidered.  There  is  no  limit  to  the  number  of  sets  of  reactants  «.o  be 
considered  by  the  program;  each  must,  however,  be  followed  by"  appro¬ 
priate  data  from  input  categories  (3)  and  (4).  The  input  for  each 
series  or  set  of  reactants  begins  with  a  new  data  line  N+l  and  concludes 
with  data  line  M.  . 


Line 

Location 

input 

1  tern 

Type  of 
Number 

Fortran 

Symbol 

Description 

N+l 

1-9 

A 

This  is  the' code  word' 
"REACTANTS™  that  identi¬ 
fies  the  beginning  of 
reactants  .data 

N+2 

1-2 

A 

NAME 

Atomic  symbol 

N+2 

3-9 

FP 

ANUM 

:Atomic  formula- nunier 

N+2 

10-11 

A 

NAME 

Atomic  symbol 

17 


Line 

Location 

.  Input 

1  tern 

Type  of 
Number 

Fortran 

Symbol 

0escri.pt  ion 

N+2 

13-18 

FP, 

ANUM 

Atomic  formula  number 

N+2 

19-20 

i 

A 

NAME  ■ 

\  • 

Atomic  symbol 

N+2 

21-27 

FP  . 

!  ANUM 

Atomic  formula  number 

N+2 

28-29 

A 

NAME 

Atomic  symbol 

N+2 

•  30-36 . 

FP 

ANUH 

Atomic  formula  number 

N+2 

37-38  ■ 

i 

A 

NAME 

Atomic  symbol 

N+2 

39-45 

FP 

ANUM  ' 

Atomie:  formula  number 

N+2 

•  i 

46-52 

.  i 

, 

TP 

\ 

PECWT 

• 

Relative  weight  (or 
number  of  moles)  of 
fuel  in  total  fuei 
or  oxiJ^nt  in  total 
oxidant" 

N+2  « 

‘  «  , 

j 

: 

A 

! 

I 

MOLE 

Symbol  to  identify 
.  if  PECWT  is’  relative 
weight  or  number  of 
moles 

=  blank  if  relative 
weights 

=  M  if" number  of  moles 

N+2 

54-62 

FP 

ENTH 

Enthalpy  in  calories/ gm 
mole  (see  point  c  ) 

N+2 

63 

A 

FAZ 

I 

State 

=  S  for ,sol id 
=  L.for  liquid 
=  G  for  gas 

N+2 

64-71 

5 

'  FP 

RTEHP 

Temperature  in  deg  K 
associated  with 
enthalpy  in  columns 

54-62 

N+2 

It- 

! 

s 

'A 

FOX 

* 

i 

Symbol  to  identify  if 
reactant  is  an  oxidant 
or  a  fuel 
=  F  if  fuel 
-  0  if  oxidant 

N+2 

73-80 

FP 

OENS 

Density  in  gm/cc  (optiona 

a 

"  A  fuel  (or  oxidant}  may  be  comp'osed  of  more  than  one  fuel  (or  oxidant). 


18 


Line  N+2  is  repeated  for  each  react3nt  in  the  set  up  to  a 
maximum  of  15  reactant  species.  The  last  line  in  this  sequence  (M) 
is  blank. 


M 


1-80 


Blar  *:  card 


The  next  input  items  are  read  into  Program  NOXRAT  using  a 
NAMELIST  statement,  input  data  referring  to  a  NAMELIST  statement 
begins  with  a  $  In  the  second  location  on  a  new  line,  immediately 
followed  by  the  NAMELIST  name,  immediately  followed  by  one  or  more 
blank  characters.  Any  combination  of  three  types  of  data  items  may 
then  follow.  The  data  items  must  be  separated  by  commas.  If  more 
than  one  line  is  needed  for  the  input  data,  the  last  item  on  each  line, 
except  the  last  line,  must  be  a  number  followed  by  a  comma.  The  first 
location  on  each  line  should  always  be  left  blank  since  it  is  ignored. 
The  end  of  a  group  of  data  is  signaled  by  a  $  immediately  after  the 
last  item  of  data.  The  form  that  data  items  may  take  is: 

a.  Variable  name  =  constant,  where  the  variable  name  may  be 
an  array  element  or  a  simple  variable  name.  Subscripts 
must  be  integer  constants. 

b.  Array  name  *=  set  of  constants  separated  by  commas  where  k* 
constant  may  be  used  to  represent  k  consecutive  values  of 
a  constant.  The  number  of  constants  must  be  equal  to  the 

.  number  of  elements  in  the  array. 

c.  Subscripted  variable  =  set  of  constants  separated  by  commas 
where,  again,  k*  constant  may  be  used  to  represent  k  consecu¬ 
tive  values  of  a  constant.  This  results  in  the  set  of  constants 
being  placed  in  consecutive  array  elements,  starting  with 

the  element  designated  by  the  subscripted  variable. 

The  first  input  NAMELIST  is  necessary  for  all  of  the  options  associated 
with  Program  NOXRAT.  The  items  in  this  NAMELIST,  INPT2  are: 


Fortran 

Symbol 


Input 
I  tern 


Description 


KASE 


Optional  assigned  number  associated  with 
the  case 
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Fortran  Input 

Symbol  I tem 


P 


P 


T  T 

MIX 


FP 

TP 

HP 

RKT 

DETN 

PS  I A 

MMHG 

IONS 


P 


P 


Description 


Assigned  pressures  (maximum  of  26) 

Chamber  pressure  (one  value)  for 
rocket  problems.  Values  in  atm 
unless  PS  I A  or  MMHG  are  set  TRSJc 
(see  below) 

Assigned  temperature  in  deg  K 
(maximum  of  26)  (see  point d  ) 

Value  of  fuel-to-oxidant  air  weight 
ratios  i f  FA  is  set  TRUE  (maximum  of  40). 
For  rocket  problems  (RKT  is  set  TRUE) 
there  must  be  as  many  sets  of  RKTINP 
JiAMELlST  inputs  as  there  are  MIX  values 
(see  point  e) 

If  variable  is  set  TRUE,  fuel-to-air 
weight  ratios  given  in  MIX.  Value 
before  read:  FALSE 

If  variable  is  set  TRUE,  problem  type 
is  assigned  temperature  and  pressure 
Value  before  read:  FALSE  (see  point f) 

If  variable  is  set  TRUE,  problem  type 
is  assigned  enthalpy  and  pressure. 

Value  before  read:  FALSE  (see  pointg') 

if  variable  ir  set  TRUE,  problem  type 
is  rocket.  Value  before  read:  FALSE 
(see  point  h) 

If  variable  is  set  TRUE,  problem  type 
is  detonation.  Value  before  read: 

FALSE  (see  point  i  ) 

If  set  TRUE,  pressure  is  in  psia  units 
Values  are  converted  to  atm  internally 
Value  before  read:  FALSE 

If  set  TRUE,  pressure  is  in  mmHg. 

Values  are  converted  to  atm  internally. 
Value  before  read:  FALSE 

If  set  TRUE,  ionic  species  are  con¬ 
sidered  in  the  combustion  produces. 

Value  before  read:  FALSE 
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Fortran 

Symbol 

l  DEBUG 


Input 
I  tern 


Description 

if  set  TRUE,  intermediate  output 
is  printed.  Value  before  read: 
FALSE. 


The  second  NAMELIST,  RKTINP,  is  required  only  for  rocket  (RKT) 
problems.  It  follows  the  INPT2  namelist.  The  items  in  this  NAMELIST 


PCP  Ratio  of  chamber  pressure  to  exit 

pressure  (maximum  of  22  values).  See  point  j. 

EQ.L  If  set  FALSE,  program  will  not 

calculate  rocket  performance  assuming 
equilibrium  composition  during  expan¬ 
sion.  Value  before  read:  TRUE. 

This  is  an  optional  input.  See  point  k. 

FROZ  If  set  FALSE,  program  will  not  cal¬ 

culate  rocket  performance  assuming 
frozen  composition  during  expansion. 

Value  before  read:  TRUE.  This  is  an 
optional  irput.  See  point  k. 

SUBAR  Subsonic  area  ratio.  This  is  an 

optional  input.  See  point  1. 

SUPAR  Supersonic  area  ratio.  This  is  an 

optional  input.  See  point  1. 

The  remaining  input  items  to  Program  NOXRAT  are  optional.  These 
are  OMIT  and  INSERT  cards.  Each  card  contains  the  word  OMIT  (in  card 
columns  1  through  4)  or  INSERT  (in  card  columns  1  through  6)  and  the 
names  of  from  1  to  4  species  starting  in  columns  16,  31,  46,  and  61. 

The  names  must  be  exactly  the  same  as  they  appear  in  the  THERMO  data. 

See  point  m  for  further  discussion  of  these  input  items. 


3.2.3  Discussion  of  Input  Data 

Some  important  aspects  to  be  considered  in  appropriately  speci¬ 
fying  the  input  data  are  discussed  below.  Reference  to  these 
discussions  has  been  made  in  the  preceding  subsection  in  which  the  input 
format  was  described.  The  points  referred  to  are  as  follows: 
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a.  The  library  of  thermodynamic  data  for  reaction  products  may 
be  read  either  from  cards  or  from  tape,  if  the  data  are 
read  in  from  cards,  the  program  will  write  these  data  on 
tape  4.  During  a  computer  run,  the  appropriate  reaction 
product  data  for  each  new  set  of  REACTANTS  cards  will  be 
selected  from  tape  4  and  stored. 

THERMO  data  may  be  read  in  from  cards  for  each  run. 

However,  a  permanent  tape  or  disc  containing  the  daua  may 
be  made  during  any  run  by  using  the  required  type  of  control 
cards  preceding  the  operating  deck.  Two  advantages  of  using 
a  permanent  tape  or  disc  are  that  the  scratch  tape  will 
not  be  made  for  each  run  and  handling  the  cards  is  elimi¬ 
nated. 

b.  The  fuel  specification  card(s)  must  preceed  the  oxidant  card(s) 
in  the  input  deck.  Further,  the  oxygen  must  be  the  second  specie 
specified  in  the  oxidant  air  atomic  formula;  the  atomic  formula 
of  the  fuel  must  be  specified  in  the  order:  carbon,  hydrogen. 

For  gaseous  mixtures  (such  as  air)  specify  equivalent 
formula  numbers  on  an  atomic  basis —  e.g. ,  air  is  78.03 
per  cent  N^,  20.99  per  cent  0^,  0.98  per  cent  Ar.  Air's 

equivalent  formula  is  then  N0.7803V  2099%.  0049  where  the' 
sum  of  the  relative  weights  is  as  close  to  1.0  as  possible. 

c.  This  enthalpy  is  not  required  for  assigned  temperature 
problems,  i.e. ,'TP. 

d.  If  no  T  value  is  given  the  program  uses  the  temperature  and 
enthalpies  on  the  reactant  cards.  When  T  values  are  assigned 
in  the  1NPT2  NAMELiST,  the  program  calculates  the  enthalpy 
from  the  library  of  THERMO  data  if  the  following  two  condi¬ 
tions  are  satisfied: 

i.  The  reactant  card  has  zeros  punched  in  card  columns  27 
and  38. 

i  i.  The  reactant  is  a  species  in  the  library  of  THERMO  data. 

e.  Relative  amounts  of  fuel  (s)  and  oxidizer(s).  These  quantities 
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may  be  specified  by  assigning  1  and  UO  values  'or  FA  if  no 
value  is  assigned  for  any  of  these,  the  program  assumes  the 
relative  amounts  of  fuel (s)  and  oxidizer(s)  to  be  those 
specified  on  the  reactants  cards. 

f.  TP  Problem.  Thermodynamic  properties  will  be  calculated  for 
all  combinations  of  assigned  values  for  pressure  P  and  tem¬ 
perature  T  in  the  NAMELIST.  Thus,  if  26T  values  and  26P 
values  are  included  in  the  INP72  lists,  properties  will  be 
calculated  for  676  P  and  T  combinations. 

g.  HP  Problem.  Combustion  temperature  and  corresponding 
properties  will  be  calculated  for  each  pressure  specified. 

h-  RKT  Problem.  One  pressure  value  P  is  required  for  the 

chamber  pressure.  The  T  schedule  is  used  only  if  expansion 
from  an  assigned  chamber  temperature  is  desired  (such  as 
for  a  nuclear  rocket).  Otherwise  it  should  be  omitted. 

The  RKT  problem  requires  a  second  namelist  for  input 
(RKT1NP)  discussed  in  the  previous  subsection. 

J .  DETN  Problem.  The  temperature  and  pressures  in  the  T  and  P 
input  refer  to  the  unburned  gas. 

j.  The  list  of  pressure  ratios  should  not  include  values  for 
the  chamber  and  the  throat.  Values  should  be  in  increasing 
order. 

k.  The  program  will  calculate  both  equilibrium  and  frozen 
performance  unless  RKT1NP  contains  FROZ  =  F  or  EQL  =  F. 

If  FROZ  =  F,  only  equilibrium  performance  will  be  calculated. 
If  EQL  =  F,  only  frozen  performance  will  be  calculated." 

l. .  The  subsonic  area  ratio  values  (SUBAR)  and/or  the  supersonic 

area  ratio  values  (SUPAR)  are  optional.  When  assigned  area 
ratios  are  included,  the  PCP  input  should  contain  values 
of  pressure  ratios  whose  corresponding  area  ratios  will  be 
in  the  range  of  the  assigned  area  ratios. 

m. .  If  OMIT  cards  are  not  used,  the  program  will  consider  as 

possible  species  all  those  species  in  the  THERMO  data  which 
are  consistent  with  the  chemical  system  being  considered. 

.V 

F  is  the  symbol  for  FALSE. 


Occasionally,  it  may  be  desired  to  specifically  omit  one 
or  more  species  from  consideration  as  possible  species. 

This  may  be  accomplished  by  means  of  OMIT  cards. 

INSERT  cards  have  been  included  as  options  for  two 
reasons.  The  first  and  less  important  reason  is  that  if 
one  knows  that  one  or  several  particular  condensed  species 
will  be  present  among  the  final  equilibrium  compositions 
for  the  first  assigned  point,  then  a  small  amount  of  computer 
time  can  be  saved  by  using  an  INSERT  card.  Those  condensed 
species  whose  chemical  formulas  are  included  on  an  INSERT 
card  will  be  considered  by  the  program  during  the  initial 
iterations  for  the  first  assigned  point.  If  the  INSERT 
card  were  not  used,  only  gaseous  species  would  be  considered 
during  the  initial  iterations.  However,  after  convergence, 
the  program  would  automatically  insert  the  appropriate 
condensed  species  and  reconverge.  Therefore.,  It  usually 
is  immaterial  whether  or  not  INSERT  cards  are  used.  For 
all  other  assigned  points  the  inclusion  of  condensed  species 
is  handled  automatically  by  the  program. 

The  second  and  more  important  reason  for  including  th^ 
INSERT  card  option  is  that,  in  rare  instances,  it  is  impos¬ 
sible  to  obtain  convergence  for  assigned  enthalpy  problems 
(HP  or  RKT)  without  the  use  of  an  INSERT  card.  This  occurs 
when,  by  considering  gases  on!'*,  the  temperature  becomes 
extremely  low  (say  several  deg  K).  in  these  rare  cases, 
the  use  of  an  INSERT  card  containing  the  name  of  the 
required  conderscd  species  will  eliminate  this  kind  of 
convergence  difficulty.  When  this  difficulty  occurs,  an 
error  message  is  generated.  This  message  is  described  in 
the  subsection  Description  of  Error  Messages. 

3.2.4  Description  of  Sample  Case  Input 


A  completed  input  data  sheet  is  shown  on  page  29  for  an  assigned 
enthalpy  pressure  problem  (HP).  In  this  table,  lines  I  through  6  identify 


the  start  of  the  thermodynamic  data  and  include,  as  examples,  data  for 
solid  phase  aluminum.  Lines  10  through  13  identify  that  the  reactant 
components  for  this  problem  are  kerosene  (CjHj  9423)  an£*  air 
(Ng. 7803^0. 2099Ar0. 0049) *  ^he  kerosene  (fuel)  is  supplied  as  liquid  at 
298.15  deg  K  with  an  enthalpy  of  -5^30  cal/gm-mole.  The  air  (oxidant) 
i*  gaseous  at  35«  deg  K  with  an  enthalpy  of  195.0  cal/gm-mole.  The 
density  of  the  kerosene  is  specified  as  0.773  gm/cc  while  that  of  the 
air  is  omitted.  Lines  15  through  18  are  the  NAMELISTS  $INPT2  input. 
Here  the  case  is  given  the  code  number  1,  HP  is  identified  as  the 
problem  type,  the  combustor  pressure  is  set  at  1.80  atm,  and  the  MIX 
matrix  is  assigned  35  fuel-to-air  ratios  for  test. 


.3  OUTPUT  DATA 

The  output  of  Program  NOXRAT  consists  of  both  printed  and  punched 
data.  The  data  falls  into  two  main  categories:  normal  output  and 
error  messages.  The  normal  output  consists  of  the  printed  and  punched 
results  usually  obtained  with  each  run  of  the  program.  If  any  difficul¬ 
ties  are  encountered  in  the  solution  of  a  case,  one  or  more  error  mes¬ 
sages  are  printed.  These  messages  are  diagnostic  statements  which  describe 
the  nature  of  the  difficulty.  They  are  described  in  greater  detail  in 
subsection  3.3*2. 


3-3.1  Normal  Output 

The  normal  output  from  NOXRAT  falls  into  two  main  categories: 
printed  output  for  each  fuel-to-air  ratio  for  each  assigned  condition 
(e.g.,  pressure);  and  printed  and  punched  output  for  each  assigned 
pressure.  The  normal  output  from  the  first  category  is: 

a.  The  chemical  formula  of  each  reactant  specie. 

b.  The  weight  fraction  of  each  reactant  specie  in  the  total 
fuel  or  oxidant. 

c.  The  base  enthalpy  of  each  reactant  in  cal/gm-mole. 

d.  The  input  temperature  of  each  reactant  in  deg-K. 


Also  normal  output  of  CEC. 
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v 


w. 


X. 


y* 


2. 


2l. 


The  density  of  each  reactant  {if  specified  in  the  input) 
in  gm/cc. 

The  physical  state  of  each  of  the  specified  reactants. 

The  total  oxidant  to  fuel  weights  ratio. 

The  per  cent  fuel  in  the  reactant  mixture. 

The  equivalence  ratio  of  the  reactants. 

The  weight  average  density  of  the  reaction  mixture  in 
gm/cc  (printed  as  zero  if  the  density  of  any  specie  is 
omitted  from  the  input). 

The  equilibrium  pressure  in  atm. 

The  equilibrium  temperature  in  deg  K. 

The  sonic  velocity  of  the  combustion  production  mixture 
in  meters/sec. 

The  mean  enthalpy  of  the  combustion  products  in  cal/gram. 

The  mean  entropy  of  .he  combustion  products  in  cal/gram-deg  K. 
The  mean  molecular  weight  of  the  combustion  products  in  grams. 
The  differential  («V/^P)^.  in  cc/acm. 

The  differential  vAt)?  in  cc/deg  K. 

The  mean  heat  capacity  of  the  combustion  products  in  cal/gram- 
deg  K. 

The  mean  heat  capacity  ratio  (Cp/Cy)  of  the  combustion  products. 
The  mole  fraction  and  chemical  formula  of  each  of  the  combustion 
products  present  at  equilibrium  at  a  concentration  greater 
than  5  x  10  . 

The  mole  fraction  of  each  of  the  species  of  interest  in  the 
nitric  oxide  kinetic  scheme  {Refs  4  through  6)  and  the  mole 
fractions  of  CO,  CO^. 

The  mean  molecular  weight  of  the  combustion  products  in  grams. 
The  adiabatic  flame  temperature  of  the  combustion  products  in 
deg  K. 

The  assigned  inlet  pressure  in  atm. 

The  fuel-to-air  weight  ratio  of  the  reactants. 

The  atomic  composition,  inlet  temperature  (in  deg  K)  and 
enthalpy  (cal/gm-mole)  of  both  the  fuel (s)  and  the  oxidant(s). 


Also  normal  output  of  CEC. 


26 


With  the  exception  of  the  descriptive  characteristics  of  the 

fuel(s)  and  oxidant(s)  (output  #zl  ),  the  output  from  this  category 

is  clearly  labeled  and  requires  no  further  discussion. 

The  fuel  and  oxidant  are  described  by  seven  characteristic 

numbers,  the  first  five  of -which  give  the  atomic  composition  while 

the  sixth  and  seventh  are  the  enthalpy  in  cal/gm-mole  at  the  inlet 

temperature  in  deg  K.  These  two  lines  of  output  appear  directly 

below  the  fuel-to-air  ratio  with  the  first  line  a lways  referring 

to  the  fuel  and  the  second  to  the  oxidant.  Since  the  fuel  used  in 

this  analysis  has  been  assumed  to  be  of  the  form  C  H  »  the  first  two 

x  y 

figures  printed  describing  the  fuel  are  "x"  and  "y*1  while  the  third, 
fourth,  and  fifth  figures  are  printed  as  aero.  In  this  analysis,  the 
oxidant  has  been  taken  to  be  air  comprised  of  nitrogen,  oxygen,  and 
argon  with  the  equivalent  chemical  formula  N^OgAr^.  Hence,  the  first 
three  numerals  printed  describing  the  oxidant  are"A",  "B",  and  "C" 
respectively.  The  fourth  and  fifth  figures  are  printed  as  zero;  inclu¬ 
sion  of  other  trace  components  in  the  air  will  change  these  latter 
digits  accordingly.  Further  description  of  this  output  is  included 
in  Appendix  IV.  The  output  for  the  sample  data  case  corresponding  to 
this  category  of  the  output  is  shown  on  pages  30  and  31* 

The  normal  output  for  the  second  category  is: 

a.  The  atomic  composition  of  the  fuel  (C^H^). 

b.  The  inlet  air  temperature  in  deg  ... 

c.  A  code  number  identifying  the  set  of  kinetic  constants 

used  in  the  NO  rate  formation  calculations  (see  Appendix  V). 

d.  The  assigned  pressure  in  atm. 

e.  The  stoichiometric  fuelwto-air  ratio. 

f.  For  each  fuel-to-air  ratio  specified,  the  program  prints 


and  punches  two  lines  of  output  containing  twelve  items 
of  data.  This  data  is  (consecutively):  the  mixture 
ratio  (mass  fuel  to  mass  fuel  and  air);  the  equivalence 
ratio;  the  density  of  the  combustion  products  in  gm/cm^; 
the  adiabatic  flame  temperature  of  the  combustion  prod¬ 
ucts  in  deg  K;  the  equi 1 ibriun  mole  fraction  of  NO,  CO, 
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C(s),  and  CH^  (unburned  hydrocarbons),  and  the  kinetic  pa¬ 
rameters  Rj,  Rg  (in  gm-moles/cm^-sec) ,  Kj »  and  (dimension¬ 
less).  The  output  for  the  sample  data  case  corresponding  to 
this  category  of  the  output  is  shown  on  page  32. 

Program  NOXRAT  prints  intermediate  output  for  each  input  set 
of  REACTANT  cards  and  for  each  fuel-to-air  ratio.  The  former  consists 
of  a  listing  of  the  input  data  for  the  case  and  a  listing  of  the  specie^ 
being  considered  as  products  of  the  combustion  process.  The  latter 
data  is  the  result  of  intermediate  calculations  within  NOXRAT  and  is 
not  described  here.  It  is  generally  not  of  any  interest  to  the  user; 
however,  the  output  for  one  fuel-to-air  ratio  for  the  sample  data  case 
is  shown  on  page  33. 


3.3*2  Description  of  Error  Messages 

The  known  error  messages  in  Program  NOXRAT*  are: 

a.  in  rare  instances,  it  is  impossible  to  obtain  convergence 
for  assigned  enthalpy  problems  (HP  or  RKT)  without  the  use 
of  an  INSERT  card.  This  occurs  when,  by  considering  gases 
only,  the  temperature  becomes  extremely  low  (say  several 
deg  K).  In  these  rare  cases,  the  use  of  an  INSERT  card 
containing  the  name  pf  the  required  condensed  species  will 
eliminate  this  kind  of  convergence  difficulty.  When  this 
difficulty  occurs,  the  following  message  is  printed  by  the 
program:  “LOW  TEMPERATURE  IMPLIES  CONDENSED  SPECIES  SHOULD 
HAVE  BEEN  INCLUDED  ON  AN  INSERT  CARD". 

b.  If  the  user  mixes  the  order  of  the  cards  for  a  particular 
species  in  the  thermodynamic  data  file,  the  program  will 

print:  "ERROR  IN  ORDER  OF  DATA  CARDS  FOR - (specie  name)". 

This  is  a  nonfatal  error  and  the  program  will  continue  to 
execute,  however,  the  specie  in  error  will  be  deleted  from 

the  thermodynamic  inventory. 

c.  If  there  are  cards  in  the  input  data  deck  that  do  not  belong, 
the  program  will  write  the  card  and:  "ERROR  IN  ABOVE  CARD.' 
IGNORE  CONTENTS".  This  is  a  nonfatal  error  to  the  program, 
but  causes  it  to  skip  to  the  next  data  set. 

These  are  as  those  for  CEC. 
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d.  If  there  are  errors  in  the  REACTANTS  data  c^rds  the  program 
will  write:  "ERROR  IN  REACTANT  CARDS".  This  is  a  nonfatal 
error  to  the  program  but  causes  it  to  skip  to  the  next 
data  set. 

e.  If  the  convergence  tests  are  not  satisfied  for  the  equili¬ 

brium  products  the  program  will  print:  "ITERATIONS  DID 
NOT  SATISFY  CONVERGENCE  REQUIREMENTS  FOR  THE  POINT  _ 

f.  If  tne  temperature  calculated  for  the  combustion  is  out  of 
the  range  of  the  thermodynamic  data  the  program  will  print: 

"THE  TEMPERATURE  = _  IS  OUT  OF  RANGE  FOR  POINT _ 

g.  If  the  phases  of  a  condensed  specie  are  out  of  order,  the 
program  will  print:  "PHASES  OF  A  CONDENSED  SPECIE  ARE  OUT 
OF  ORDER". 

3.4  MISCELLANEOUS  OPERATIONAL  INFORMATION 

Program  NOXRAT  occupies  approximately  71,000  core  locations 
during  loading  and  approximately  63,000  core  locations  during 
execution  on  the  CDC  6600  computer.  Actual  program  length  is 
aoproximately  38,000  core  locations.  Hence,  the  total  storage 
requirement  for  this  program  is  comfortably  within  the  CDC  6600 
core  capacity  of  131,000  locations. 

The  execution  time  of  Program  NOXRAT  depends  primarily  upon  the 
number  of  assigned  pressure  levels  and  upon  the  number  of  fuel-to-air 
ratios  at  each  of  the  pressure  levels  to  be  tested.  A  typical  operating 
condition  of  one  assigned  pressure  and  35  fuel-to-air  ratios  requires 
approximately  66  systems  seconds  (central  processor  time  is  approximately 
52  secs)  for  execution.  Each  succe.ding  point  at  any  given  pressure 
and  any  selected  fuel-to-air  ratio  will  require  approximately  one 
second  of  over-all  machine  time. 

A  "scratch"  tape  is  required  by  the  program.  This  scratch  tape 
number  is  not  assigned  a  Fortran  name  but  is  given  the  value  of  4  by 
the  program.  The  instructions  necessary  for  mounting  this  tape  must 
be  supplied  to  the  computer/ computer  operator  upon  submission  of  a  run. 


NORTHERN  RESEARCH  AND  ENGINEERING  CORPORATION 

29 

3-5  DATA  INPUT  SHEET 

NOx  from  Gas 

RDS _  PROJECT*  Turbine  Combustors _ PROJECT  NO*  1 162 


ENGINEER*  RDS  PROJECT*  _  Turbine  Cotnbusto 

TITLE*  Sample  to  illustrate  the  Use  of  Program  NOXRAT 


SHEET*  1  Of  1 
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Line  3 
Line  4 
Line  5 
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Line  11 
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TABLE  I 


KINETIC  DATA  FOR  THE  NITRIC  OXIDE  REACTION  SCHEME 


Reaction  No. 

Aj  (csi^/sec  gm-mole  deg  K) 

n. 

« 

Ej (kcal/gm-mole) 

1 

1.2046  x  1013 

0.0 

O.J 

! 

2 

1.2046  x  1013 

0.0 

7-1 

I  CODE  =  l 

3 

4.2161  x  1013 

0.0 

0.0 

(from  Refs 

4 

3-0115  x  1013 

0.0 

10.8 

4,  5) 

5 

3.6138  x  1013 

0.0 

24.0 

6 

4.8184  x  1053 

0.0 

24.0 

1 

3-1  x  1013 

0.334 

2 

6.4  x  10s 

1 

6.25 

5  CODE  =  2 

3 

4.1  x  !013 

I 

0.0 

(from  Refs 

4 

2.9513  x  10 13 

0.0 

10.77 

9,17) 

5 

3.8146  x  1013 

0.0 

24.1 

6 

4.5775  x  1013 

0.0 

24.1 

1 

3.0717  x  1013 

0.0 

0.33 

2 

1.3251  x  1010 

1.0 

7.1 

ICODE  =  3 

3 

4.2161  x  1013 

1 

0.0 

(from  Ref 

4 

2.9513  x  1013 

| 

10.77 

18) 

5 

3.8146  x  1013 

0.0 

24.1 

6 

4.5775  x  1013 

I  ------ 

0.0 

24. 1 

1 

1.0239  x  10J3 

m 

O.C 

2 

3.7945  x  1012 

7.0 

ICODE  =  4 

3 

4.1559  x  1013 

0.0 

0.0 

(from  Ref 

4 

2.9513  x  10?3 

0.0 

10.77 

18) 

5 

3.8 i46  x  1053 

0.0 

24.1 

6 

4.5775  >:  1013 

0.0 

24.1 
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TABLE  2  -  PROGRAM  OR  SUBPROGRAM  FUNCTION 


Program  or 
Subprogram 

NOXRAT 


REACT 


Description 

Main  program  to  calculate  chemical  equilibrium 
compositions  with  applications;  the  main  program 
controls  the  calcula  ion  and  directs  the  input 
and  output 

Subroutine  to  read  and  convert  reaction  input 
data 


SEARCH 

EQ.ULBRM 

CPHS 

MATRIX 

MGAUSD 

VARFMT 

OUTi 

0UT2 

0UT3 

HCALC 

HOLIER 

CMBSTN 

DETON 

SHCK 

ROCKET 


Subroutine  to  search  tape  for  thermodynamic  data 
for  species  to  be  considered 

Subroutine  to  calculate  equilibrium  composition 
and  properties 

Subroutine  to  calculate  thermodynamic  properties 
for  individual  species 


Subroutine  to  perform  matrix  inversion 

Subroutine  to  solve  any  linear  set  of  up  to  20 
equations 

Subroutine  to  set  variable  formats 
Subroutine  to  write  output 
Subroutine  to  write  output 
Subroutine  to  write  output 

Subroutine  to  calculate  enthalpy  for  propellant 
using  coefficients 

Subroutine  to  calculate  thermodynamic  equilibrium 
properties  at  assigned  temperatures  and  pressures 

Subroutine  to  calculate  theoretical  thermodynamic 
combustion  properties 

Subroutine  to  calculate  Chapman-Jouguet  detonations 
Subroutine  to  terminate  program  if  a  shock  occurs 
Subroutine  to  calculate  rocket  performance 
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TABLE  2  -  PROGRAM  OR  SUBPROGRAM  FUNCTION  (CONTINUED) 


Program  or 
Subprogram 

RKTOUT 

RATIO 

SET 

FROZEN 

RATES 


Description 

Subroutine  to  write  output  for  rocket  performance 

Subroutine  to  interpolate  area  ratio 

Subroutine  to  interpolate  area  ratio 

Subroutine  to  calculate  frozen  composition  expansion 

only 

Subroutine  to  calculate  rate  constants  for  the  NO 
reaction  scheme 


6.  FIGURES 
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NOXRAT 


-  REACT 

-  SEARCH 

-  HOLIER 

_  CHBSTN 


! -  DETON 


ROCKET 


-  SHCK 

* -  HCALC 


EQLBPM  _ 

OUT1 

0UT2  -  VARFMT 

OUT3 - RATES 

EQ.LBRM  - 

OUT1 

0UT2  - VARFHT 

0UT3  -  RATES 


EQLBRM  - 

OUT1 

0UT2  - VARFMT 

OUT3  -  RATES 

HCALC -  CPHS 


EQLBRM 


RKTOUT 


FROZEN 


RATIO 


-  VARFHT  * - 

- 0U71 

-  0UT2  - 

-  OUT3  - 


- MGAUSD  1 - 

-  VARFHT 

_  SET  MGAUSD 


-  CPHS 

F 1 GURE  1  -  MODULAR  TREE  D1AGRAH 


CPHS 

MATRIX 

HGAUSD 

CPHS 

MATRIX 

HGAUSD 


CPHS 

MATRIX 

HGAUSD 


CPHS 

MATRIX 

MGAUSD 

VARFMT 

RATES 

RKTOUT 

CPHS 

RATIO 


k2 


Units 

cal/gm-deg  K 

cal/gm-deg  K 

atm 
deg  K 
cc 


I 


¥f 

APPENDIX  l  -  OVER- ALL  PROGRAM  LOGIC 

i 

The  over-all  computer  flow  of  NOXRAT  is  identical  to  that  of 
CEC  excepting  the  additional  CALL  to  Subroutine  RATES  by  Subrout i he 
0UT3.  The  other  modifications  to  0UT3  and  to  the  main  program  (NOXRAT) 
do  not  affect  the  over-all  program  logic.  A  complete  description  of  the 
program  logic  is  available  in  References  11,  13,  l4,  and  15.  A  modular 
diagram  of  NOXRAT  is  provided  as  Figure  1  (Ref  13).  Table  2  contains  a 
brief  statement  as  to  the  role  of  each  routine  in  the  program. 


! 


i 
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APPENDIX,  II  -  COMMON  FORTRAN  NOMENCLATURE 

i  ■  \ 

t 

i 

The  fol lowing  ‘tables  contain  the  COMMON  Fortran  nomenclature  for 
(  Program.  NOXRAT  that  was  added  to  that  of  Program  CEC.  COMMON  consists 
of  labeled  blocks;  the  nomenclature  is  arranged  in  alphabetical  order 
for  each  block'.  The  metric  system  of  units  is  included  in  the  nomen¬ 
clature.  > 


Nomenclature,  for  COMMON/SNEW 

i 

'  Fortran  i  • 


Symbol  ’ 

Symbol s 

5  Description 

Units 

INDFA 

Index  of  equivalence  ratios 

1  RON 

F/A 

.  | 

Fuel-to-air  mass  ratio 

1 

• 

i 

Nomenclature  for  dOMMON/DICK 

i 

Fortran 

Symbol 

SWjoI 

t 

1  n  i  . 

Description 

:  t 

Uni  ts 

ATT(j,|) 

T. 

J 

jth  value  of  the  adiabatic  flame  tem¬ 
perature  -{In  the  combustor)  at  a 
.particular  fuel-to-air  mass  ratio  i 

deg  K 

BC0N1(J,I) 

yc' 

c(s)j 

Equilibrium  mole  fraction  of  carbon 
at  the  jth  pressure  level  at  a 
particular  fuel-to-air  mass  ratio  i 

BC0N2’  (J,l). 

1  ■ 

yco. 

J 

Equilibrium  mole  fraction  of  carbon 
monoxide  at  the  jth  pressure  level  at 
a  particular  fuel-to-air  mass  ratio  i 

BC0N6(J,i) 

yN0. 

J 

Equilibrium  mole  fraction  of  nitric 
oxide  at  the  jth  pressure  level  at  a 
particular  fuel-to-air  mass  ratio  i 

CH2(JJ) 

vf»2j 

:  Equilibrium  mole  fraction  of  unburned 
hydrocarbons  in  the  combustion  products 
(excluding  and,  CO)  expressed : as  CH2 

at  the  jth  pressure,  level  at  a  particular 
fuel-to-air  mass  ratio  i 

i 


1» 6 


Fortran 

Symbol  Symbol 

EKl(J.l)  <Kl)j 

EKa(J.i)  (K2)j 

F(  I )  F 

M1X(I) 


Description 

Ratio  of  forward  reaction  rate 
at  the  ith  pressure  level 
for  a  particular  fuel-to-air  mass 
ratio  i 

Ratio  of  forward  reaction  rate 
at  the  jth  pressure  level 
for  a  particular  fuel-to-air  mass 
ratio  i 

Mixture  ratio 

Matrix  of  specified  fuel-to-air  mass 
rat i os 


Units 


PHI(l)  <J> 

ROH(J.l)  ?. 

Rl(J.l)  (RjVj 

R6(J,1)  (R6)j 


Equivalence  ratio 
Equilibrium  density  at  the  jth 

pressure  level  at  a  particular  , 

fuel-to-air  mass  ratio  i  gm/air 

Forward  reaction  rate  for  the  first 
reaction  at  the  jth  pressure  level 

at  a  particular  fuel-to-air  mass  ratio  i  gm-rcole/cm3-sec 

Forward  reaction  rate  for  the  sixth 
reaction  at  the  jth  pressure  level 
at  a  particular  fuel-to-air  mass  ratio  i 


gm-mo 1 e/cm^-sec 
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APPENDIX 


111  -  MAIN  ROUTINE  -  NOXRAT 

The  changes  to  the  main  routine  of  CEC  are  as  follows: 

a.  The  main  program  was  renamed  NOXRAT,  thus  replacing  the 
CEC  name  "MAIN". 

b.  The  subscripted  variable  MIX  was  expanded  from  15  to  50. 
MIX  is  the  matrix  of  specified  fuel-to-air  ratios. 

c.  Labeled  COMMON  blocks  SNEW,  DICK,  and  EQNEW  were  added. 
Definitions  of  the  variables  contained  in  these  blocks 
are  povided  in  Appendix  II. 

d.  The  statement  DO  303  I  »  1,  15  was  modified  to  DO  303 

1  =  1,  50.  This  is  consistent  with  the  expansion  of  the 
MIX  matrix  from  15  to  50. 

e.  Statement  number  322:D0  625  1ST  =  1,  '5  was  modified  to 
read  DO  625  1ST  =  1,  40.  This  is  consistent  with  the 
decision  to  limit  eacn  set  of  specified  fuel-to-air  ratios 
to  between  35  and  40  entries. 

f  .  The  statement  INDFA  =  1ST  was  inserted  directly  after  the 
statement  numbered  322.  The  statement  RON  =  MIX(lST)  was 
inserted  directly  after  the  statement  numbered  323-  Both 
of  these  new  variables  are  part  of  the  new  labeled  COMMON 
blocks  and  are  used  only  in  Subroutine  RATES.' 
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APPENDIX  IV  -  SUBROUTINE  OUT3 

Subroutine  GUT3  is  an  entry  point  to  Subroutine  0UT1.  The  main 
purpose  of  this  subroutine  had  been  to  provide  the  written  output  for 
the  CEC  program.  The  modifications  incorporated  into  0Uf3  permit 
identification  of  the  species  of  interest  in  the  kinetic  scheme  (previously 
described).  Once  identified,  these  variables  are  transmitted  to  Subroutine 
RATES  by  means  of  COMMON  and  a  call  statement  from  0UT3-  The  specific 
changes  to  0UT3  are  as  follows: 

a.  The  subscripted  variable  MIX  was  expanded  from  15  to  50. 

MIX  is  the  matrix  of  specified  fuel-to-air  ratios. 

b*  A  dimension  statement  was  added  for  the  variables  “SIEGEL" 
and  "CONCKI".  "SIEGEL"  is  a  singly-subscripted  variable 
containing  the  alphanumeric  characters  used  in  the  idenfi- 
fication  of  che  chemical  species  of  interest  in  the  kinetic 
scheme.  The  variable  "CONCKI"  is  a  doubly-subscripted 
array  representing  the  equilibrium  mole  fraction  of  a 
given  species  for  a  particular  pressure  level  at  a  specified 
fuel-to-air  ratio. 

c.  Labeled  COMMON  blocks  SNEW,  DICK,  and  EQ.NEW  were  added. 

Definitions  of  the  variables  contained  in  these  blocks  are 
provided  in  Appendix  II. 

d.  The  elements  of  the  "SIEGEL"  array  were  entered  into  the 
program  via  a  DATA  Statement. 

e.  Statement  number  1000  was  changed  from  a  RETURN  statement 
to  a  CONTINUE  statement. 

f.  34  statements  were  added  to  the  program  after  statement 
number  10f'>  in  order  to  identify  which- elements  of  the 
CLC  array  EN  (containing  the  moles  of  a  given  species 
present  in  a  part:cvl^./  reaction  mixture)  were  the  ones 
of  interest  :n  the  kinetic  aralysis.  This  problem  was 
created  by  the  storage  of  the  alphanumeric  characters 
identifying  reaction  species  in  the  CEC  generated  array 
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"SUB".  This  array  was  created  in  such  a  manner  that 
determination  of  the  specific  elements  of  interest  to 
NREC  had  to  be  accomplished  by  a  direct  comparison  of  the 
alphanumeric  data  in  the  "SUB"  array  with  the  specific 
names  in  the  input  "SIEGEL"  array.  This  comparison  and  the 
calculation  of  the  equilibrium  mole  fractions  was  accom¬ 
plished  in  the  DO  3000  loop  of  0UT3.  The  remaining  state¬ 
ments  added  +o  0UT3  allow  the  equilibrium  mole  fractions 
and  names  of  the  specie?  of  interest,  the  molecular  weight 
and  adiabatic  flame  temperature  of  the  combustion  products, 
the  assigned  pressure,  the  fuel-to-air  ratio,  and  the 
atomic  and  thermal  characteristics  of  the  fuel  and  oxidant 
Lo  be  printed  for  each  specified  fuel-to-air  ratio.  This 
output  appears  directly  beneath  the  "normal"  output  (i.e. , 
regular  CEC  type)  generated  by  0UT3.  The  final  cards 
added  to  GUT3  are  the  CALL  statement  to  Subroutine  RATES 
and  the  Subroutine  RETURN  statement. 


APPENDIX  V  -  SUBROUTINE  RATES 
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The  primary  function  Subroutine  RATES  is  to  produce  data,  in 
the  form  of  a  deck  of  cards,  which  specify  all  of  the  kinetic  properties 
required  by  Program  GASNOX^at  the  equilibrium  combustor  conditions. 

Subroutine  RATES  is  called  by  Subroutine  CUT3  of  Program  NOXRAT ; 
it  does  not  call  any  other  subroutines.  Subroutine  RATES  does  not  require 
external  input  but  does  provide  external  output  in  the  form  of  punch  cards 


and  paper. 

Internal  input  and  output 

are  transmitted 

as  arguments  of 

the 

subroutine  and  through  COMMON.  The  i 

nternal  input  consists  of: 

A 

ANUM 

CONCKI 

E 

EN 

ENTH 

ICODE 

INDFA 

MIX 

NPT 

NREAC 

PPP 

RON 

RTEMP 

•7TT 

WM 

The  i'-ternal 

output  consists  of: 

ATT 

BC0N1 

BC0N2 

BC0N6 

CH2 

EK1 

EK2 

F 

PHI 

RON 

R1 

R6 

The  external 

output  consists  of: 

ANUM 

ATT 

BC0N1 

BC0N2 

BC0N6 

CH2 

EKS 

EKl 

EK2 

F 

1C0DE 

PHI 

PPP 

RON 

RTEHP 

A1 

R6 

Fortran  Nomenclature 

The  following  table  gives  the  Fortran  nomenclature  for  those 
symbols  used  in  Subroutine  RATES  which  are  not  included  in  CQHHON. 


Fortran 

Symbol 

Symbol 

Description 

Units 

A(l  ) 

A. 

Pre-exponential  factors  in  the 

3 

i 

kinetic  equations 

cm  /sec-gm  mole  deg  K 

ANUM(|,J) 

a.  • 

Atomic  number 

1  »J 

a,  j  =  carbon 
a|’2  =  hydrogen 

a2  2  ~  oxysen 

See  Volume  3. 
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Fortran 

Symbol 

CONCKi(J.i) 

COKMCMfc.J,!) 

E(D 

EKS 

EN(l) 

enth(n) 

tCODE 


l  PR  1  iff 

iST 

N'PT 

NREAC 

PPP(J) 


Symbol 


Description 


y.  • 
»,J 


t. 

i 


n. 

i 


H 

n 


react 

> 

j 


Equilibrium  mole  fraction  of  the 
ith  species  for  the  jth  pressure 
at  a  particular  fuel-to-air  mass 
ratio  i 

Equilibrium  concentration  of  the 
kth  species  for  the  jth  pressure 
at  a  particular  fuel-to-air  mass 
ratio  i 

Activation  energies  for  the 
kinetic  equations 

Fuel-to-air  mass  ratio  at  stoi¬ 
chiometric  conditions 

Temperature  exponent  for  the 
kinetic  equations 

Enthalpy  c *  reactant  n 

indicator 

ICODE  =1  if  kinetic  rate 
constants  of  Lavoie  are 
employed  (Refs  4,  5) 

1CCDE  =  2  if  "best"  kinetic 
data  are  employed  (Refs  9,  17) 
ICODE  =  3  if  "high"  kinetic 
data  selected  from  Reference  18 
are  employed 

ICODE  =  4  if  "low"  kinetic  data 
selected  from  Reference  18  are 
emp  1  oyed 

Indicator 

1  PR  I  NT  =  0  if  data  is  not  to 
be  printed  and  punched 
[PRINT  =  1  if  data  is  to  be 
printed  and  punched 

index  of  equivalence  ratios 

index  of  pressures 

Number  of  the  nth  reactant  species 

jth  value  of  the  pressure  in  the 
combustor 


Uni  ts 


gm  moles/cm3 
kcal/gm-mole 


cal/gm-mole 


atm 
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Fortran 

Symbo 1  Symbol  Description  Units 


RATEK(K, J, I )  (k^j 


RATWTS 


jth  value  of  the  reaction  rate 
for  the  kth  kinetic  equation  at 

a  particular  fuel-to-air  mass  ratio  i  •  cm^/sec-'/n  mole 
Ratio  of  atomic  numbers 


RTEMP(N)  Tn 

R2(J,l)  \R2)  j 

R3(J,I)  (R3)j 

RMJ.D  (R4)  j 

R5(J,0  (R5)j 

TTT  ( J)  T. 

J 

VM(J,1)  MV. 


Inlet  temperature  of  reactant  n 

Forward  Reaction  rate  for  the  second 
reaction  at  the  jth  pressure  level 
at  a  particular  fuel-to-air  mass 
ratio  i 

Forward  reaction  rate  for  the  third 
reaction  at  the  jth  pressure  level 
at  a  particular  fuel-to-air  mass 
ratio' i 

Forward  reaction  rate  for  the  fourth 
reaction  at  the  jth  pressure  level 
at  a  particular  fuel-to-air  mass 
ratio  i 

Forward  reaction  rate  for  the  fifth 
reaction  at  the  jth  prcs=”.-e  level 
at  a  particular  fuel-to-air  mass 
ratio  i 

jth  value  of  the  temperature  (in 
the  combustor)  at  a  particular 
fuel-to-air  mass  ratio 

jth  value  of  the  molecular  weight 
of  the  reaction  products  at  a 
particular  fuel-to-air  mass- ratio 


deg  K 


gm-mo 1 e/cm3-sec 


gm-mo 1 e/cm^-sec 


gm-mo 1 e/cm^-sec 


gm-mo le/cm-sec 


deg  K 


gm/ gm-mo 1 e 


analysis  Procedure 

The  step-by-step  procedure  of  Subroutine  RATES  is  given  below. 

At  the  conclusion  of  the  step-by-step  procedure,  the  Fortran  listing  of 
the  subroutine  appears; 

*•  Establish  the  printing  and  punching  control. 

b.  Convert  equi 1 ibrium  mole  fractions  of  C,  CO.  CO  H 

•a  (s)  2*  * 

N,  NO,  ^0,  0,  02  to  moles/cm  by  the  relationship 
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c.  Compute  the  forward  reaction  rate  constants  as 

1%;)]  =  A^° 

d.  Calculate  (R,^.,  (R-,^,  (R^.,  (R^) j ,  (R^,  and  (R&) . 

-  (Mi 

&)i«  Wi^)4Co,e). 

(p3^j  =  (^3)^  C  Me)j  (CHe.^ 

(c40  =  (&)j 

(t?s)d  '  C^aOe^ 

irj-  -  iWi  i°4  c^j 


e.  Compute  (K^  and  (K^ 


-  1035 


If  (R2)^  and  (R^K  equal  zero,  (K ? ) .  = 
if  (R^h  and  (R^K  equal  zero,  (K2)J  =-•  lo 

f.  Compute  a  .  as  3 

J9j=  Pi  MWj/sa,OS7T3 

g.  Compute  i<s  as 

K-  =  jl£c>>y|-  ia,^)a£>2. 
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h.  Compute  <J>as 


<v  = 


i  •  •  Compute  F  as 


a8,99  tQ«.i  -*■  (*hZ) 
Va 


I"  -  <P£<,  /(  1  -«-  4>ls) 


j-  Compute  yCH 


^  =2jPr^iZa. 


1 


2. 

tea...  i 


»»^' 


L(rA)-i  J  -ScoJ 


Repeat  steps  a  through  J  for  each  of  the  specified 
pressure  levels- 
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m  ■ 


n-* 


o. 


P- 


if  all  of  the  input  fuel-to-air  mass  ratios  have  been 
examined,  proceed  to  stepm-  If  not,  return  to  Sub¬ 
routine  OUT  y  of  Program  NOXRAT  and  repeat  the  set  of 
calculations  in  .NOXRAT  leading  up  to  the  calling  of  Sub¬ 
routine  RATES. 

!f  this  is  the  first  fuel-to-air  mass  ratio  at  the  parti¬ 
cular  pressure  in  question,  write  and  punch  a  heading 
card.  If  not,  go  to  step  n'*- 

Write  and  punch  the  required  output  data  at  the  jth  pres¬ 
sure  level  (for  each  fuel-to-air  mass  ratio  at  that  pressure 
level).  This  data  is:  F;  0  ;  T. ;  yNQ  y,  yCQ 

C(s),j 

If  this  is  the  last  fuel-to-air  mass  ratio  at  the  jth 
pressure  level,  proceed  to  Stepp.  If  not,  return  to 
step  m  at  the  next  ratio. 

If  this  is  the  last  pressure  specified,  proceed  to  step 
q.  If  not,  return  to  stepm-. 


yCH,  ^R6^j*  and  ^K2^j' 

z,  j 


q.  Return. 
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subroutine  rates (concki.wm.ttt.ppp. anum.enth.rtehp.npt.nreac)  Rat*oooo 

k£AL  H IX (£0)  rat*ooiu 

DIMENSION  COmCKI (10.30). TTT(13) »PPP(13) .WM<13> ,ANUM(15.5) .£NTH(15) RAT*002u 
l.RTEMP(ib)  RaT»o03u 

DIMENSION  R2 (30*40) »R3(30.4<\)*R4  (30.40) *R5 (30.40) .RATEK (6. 30*40) .CRAT«»OC40 
10rvMCM{lO*2->.40)  »A{fci.EN(6)*F{6)  RAT«005U 

CCM.wON/SNEW/RON»INOFA  RAT*0060 

COMyO\/01CK/MIX  RAT«0070 

COMMON/EUNEWyRl (30.40)  ,q6{3".40) »EKl (30*40) »EK2(30.40) .ROH(30.*0) ,RAT«008P 
1CH2 (30*40) .ATT ( 13*40 ) »F (40) .PHI (40) .8C0N1 (30*40) *RC0N2 (33*40) *8CONRAT*009f) 
'2o  (30  *40)  *  RAT*0100 

nATA(A(I)  *I=*  ,6)/3.lH-»13«6.4E*00,4.l£*13*2.«)cil3E*13*3.8l46E*13.4,5RAT*oilO 
1775E*]3/* (EN'(I) *I3].6)/0.»l.*0.*0,*0*»0./« (E (I) *1=1 »6)/0*334E*00*6RAT*0120 


2.250E*00*0,OE*00*10.77E*00*24.1E*00*24.1E*00/»ICODE/2/ 

C**«*  T£ST  for  fcRlTE  CONTROL 

c**«« 

1ST  =  INOhA 
IPRINT  a  0 

IF(PIX(IS1*1).eQ*0.0)  IpRINT  *  1 

C**«* 

SET  PRESSURE  LOOP 
DC  6000  J  =  l.NPT 

C°«*»«  CALCULATt  CONCENTRATIONS 

C**«* 

rfCONl  ( J»  1ST)  s  CONCKK1.J) 

6C0N2  ( J.  1ST)  a  C0NCKK2.J) 
r.C0N6«  J.IST)  =  C0NCKK6.J) 

00  1000  1  =  1.10 

CONVCH  ( I  ««w  .  1ST  >  »  (CONCkI  (I*  J) *ppp  (J) )  /  ( 82 , 057*TTT { j) ) 
1000  CONTINUE 
C***« 

COMPUTE  RATE  CONSTANTS 

C-oe-ae 

DC  20C0  I  =1.6 


RAT*01 30 
RAT«ni40 
RAT*0150 
RAT«0160 
RaT*0170 
RAT*0180 
RAT®0190 
RAT*0209 

RaT*021 0 
RAT<»0220 
RAT*0230 
R&T»0243 
RAT*0250 
RAT*0260 
RAT*027Q 
RAT*02RO 
RaT«029C 
RAT*030n 
RAT»031'j 
RAT«032C 
RAT*033( 
RAT«034C 
RAT*035" 
RAT-°036{ 


RaTEK(I«U*IST)  =  A(I)«(TTT( j'««EN(I))*EXP(-e(I)/(1.987E-03«TTT(J))RaT«037= 
L)  ‘  RAT«038 

2 C 0  CONTINUE  RAT«039 

'■woco  RaT»040 

CALCULATt  FORWARD  REACTION  CONSTANTS  RAT*041 

RAT»042 

*1 (J.IST)  =  >RaI£K(i,j*xST)«CCNmC*<(5»J*IST)«cONmCM(6*J»IST)  )  RaT°043 

R2(J.IS7)  =  (RATEN(2,j.IST)*CCNyCM(5*j,iST)«C0NvCM(9.J*IST))  RAT*044 

«3(J,IST)'  a  {RATEK(3tjtiST)*C0NyCy (5»J.IST)«C0NvCM(10,J.IST) )  RAT«045 

RMj.ISTI  =  f PaTEK  (4  *  J*  1ST)  «CCNMCm  (4*  J*  IST)-*C0NVCM  (7*  J.  1ST)  )  RaT»046 

RS(w.iST)  =  (PATEK(5*U*lST)«CCNyr.'(S*J* IST)*CONhCM (7.J.IST))  RAT*047 

RoU.TST)  =  (RATEK(6.U»iST)  •CCNyCM  (3*  J*  1ST)  •CONy.CM  (7.J.IST))  RAT®P48 

RAT*049 

CALCULATE  Kl.K2.RHO.KS.  AND  PHI  R6T*05C 

RAT*051 

IF (RzCJ.iST) #rO. 0.0. ANn.R3'J»lST) .£0.0*0)  £K1 (J.IST)  *1.0E*35  RATIOS? 
IF(R21J>1ST)  .F.-;.0.0.A\n.R3(j»lST)  .Eo.0.0)  60  TO  2500  RAT*053 

£Kl : J. 1ST)  =  (R1(J*IST1/(R2 (J.IST) *R3 ( J. 1ST) ) )  RaT«05a 

IF  (RAIJ.TST)  .FO.C.O.AND.R5(J»I57)  .EO.O.O)  F.K?(J»IST)  »  l.Og+35  RAT-»05E 
IF -R4;J.IST) ,FQi0.0.AND.R5(j.lST) .EQ.0.0)  60  TO  2750  RAT®05( 

EK2 (J.IST)  a  ( R6 (J»I ST >/(R4 (J.IST) ♦PS ( J. I ST) ) )  RAT*051 

ROH  ( j.  IS  1 )  =  (PPP  ( J)  ( J)  )  / (82.057«TTT  ( J) )  RAT«*05f 

RAT*05< 


Rl (J.IST) 
R2(J»IST) 
K3 (J.IST) 
RMj.lSTl 
RS(w.iST) 
R6 (« . 1ST ) 


>RAT£K(i,j,TST)«CCNyC‘<(5»J*lST)«cONyCM(6.J»lST) ) 
(RATEN(2,j.IST)®CCNyCM(5.j,iST)«C0NvCM(9.J.IST)) 
{PATcK (3,jt 1ST) cCONMCM (5* J.IST) «C0NvCM( 10, J.IST) ) 
>PAfEN(4,j,lST)«CCNyCM(4»J*lST)*cONyCM(7» J.IST)) 
(PATEN (5*0* 1ST )«CCNyr.'(3.J» 1ST) *CONhCM (7. J.IST)) 
(RATEK (6.  j.tST) •CCNyCM(3» J.IST)  •c0Ny.CM(7, J.IST) ) 


CALCULATE  Kl.K2.RHO.KS.  AND  PHI 

IF (R2( J.IST) .rC. 0.0. ANn.R3' J.IST) .EO.Q.O)  EK1 (J.IST) 
IF (R2 (J.IST) .FR.O.0»anD.R3(j»IST) .Eq.O.Q)  60  TO  2500 
£Kl : J. 1ST)  =  (R1(J*IST1/(R2 (J.IST) *R3 ( J. 1ST) ) ) 

25C 0  IF  (RA-(J.TST)  .FO.C.O.AND.R5(J»I5T)  .tO.O.O)  F.K?(J»IST) 
IF -R4;J.IST) ,FQi0.0.AND.R5(j.lST) .EQ.0.0)  60  TO  2750 
EK2 (J.IST)  =  (R6(J.IST)/{R4(J.IST) ♦Rd ( J. I ST) ) ) 

2750  ROH (j. IS  1 )  =  (PPP ( J) ( J) > / (8H.057«TTT ( J) ) 


■0E*35 


1.0£*35 
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pmhist)  '=* 

*  1ST) 


RON/EKS 


c**«* 

c**«« 

c«*«* 


PHI (iSj )*EKS/ <l <PHI (IST)*EKS) ) 
CALCULATE  CONCENTRATION  OF  C«2 


c**«»  NOTE., .fuel  Card  is  PHYSICALLY  BEFORE  OXIOANT  CARD  IN  INPUT*OXYGENRAT*0600 
C«*«*  is  SECONU  SPECIE  SPECIFIED  IN  OXIDANT  AIR, FUEL  IS  SPECIFIED  C-A*  RAT*0610 
r«*«»  ii«B  RAT*0620 
c*#€#  RAT*0630 

EKS  *  <n2.«ANUM(l»l>*l.*ANl!M(1.2)>*ANUM<2,2)>/C28.99*<ANUMU»l>*<BAT«064T 

RAT*0660 
RAT*0670 
RAT*0680 
RAT*0690 
RAT«0700 

RATWTS  «  ANUM{l»l)/ANUM(l,?i  ,  „ 

CH2 ( J, 1ST }  s  { ( (RATWTS/ ( 1 .♦I2.«RATWTS> ) « CWM { J) *RON/ <RON*l.) ) ) -CONC«AT*0720 

RAT*0730 
RAT*0740 
RAT«0750 
RAT*0760 
RAT*0770 
RAT*0780 
RAT*0790 
RAT*0800 
RAT*0810 
RAT*0820 
RAT*0830 
RAT«0840 
RAT«0»50 
RaT*0860 
RAT*0870 


C**«* 

c>*«« 

C«M* 

T-000 

c**«* 

c**«* 

c«*«* 


1M  (2,  JJ-OCNCKI  (3*  JT-CCNCKI  ) 

STORE  VALLES  OF  T 


ATTU»IST> 

CONTINUE 


*  TTT{J> 


PRINT  ANU  PUNCH  OUTPUT 


8100 


IF(IPRINT.PQ.o)  GO  TO  9999 
00  9500  l.NPT 
00  9000  1  =1.IST 
IF ( I .NE.i)  GO  TO  8500 

*RIT£ (6*8100)  ANUM(l.l) ,anUv (1»2) ♦RTEMP(2J .PPPtj) tlCOOEtEKS 
wRITE(7,8l00)  ANUM(l.l) »ANUm(1»2) »RTEMPt2) .PPPOJ) *ICODE»EKS 
FORMAT (lX, 7HFUEL=  C,E15.8.1HH,E1S.8,18H  INLET  AIR  T.(K)*  *El5.8/lXRAT*o8BO 
1» 13HPRESS. (ATM)*  »E15.8,7HIC0DE*  *I2*13HPHI  STOlCH.*  ,El5.8>  RAT#0890 

8500  *«IT£'StB200)  F<D *PHI (I) »ROH(J*I) »ATT(J»I) *RC0n6{J,I)  »8C0N2(J»I) «RAT*0900 
l-CO\l{J.I},CM2(JtI>tRlOJtnfR6(JtI)tEKI{J#I),EK2{JfI)  RaT*o91; 

8200  F0f»HAT(lX,6El2.S/lX.6El2.5)  RAT»o9?0 

*«ITE (7,6250)  FlI)  »PHI  {J>  *RftH(J»I)  ,ATT(J»I)  ,RC0N6<J,t>  »BC0N2U«I>  »RAT*0930 
lfCONl (J,I) ,Cm2(U»I) ,R1 tj.l: ,R6(J.I) »£K1 (J«I) ,EK2(J,I)  RAT«0940 

82=0  FLRHAT (6E12.5/6E12.5)  RAT*&950 

:ON’TINUE  "  RAT«0960 


90C0 

9£i?0 

99«*9 


I  j.r 
CONTINUE 
RETURN 
END 


RAT«0970 

RAT«0980 

RAT*0990 
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APPENDIX  VI 


LISTING  OF  PROGRAM  NOXRAT 


I 


c 

c 

c 


PROGRAM  NOXHaT(  INPUT, OUTPUT*PL'NCH*TAPE  5  ■  INPJT,TaP£  6  * 

1  ApE  7  *  PUNCH, TAPE  4) 

MAIN  PROGRAM 

DOUftLE  PRECISION  G.X 
R£Al  Hjx (SO) 

INTEGER  OaTa*  OMIT,  ENSEST*  R£ac*  BLANK*  THRM,  ENOtSUg  . 

LOGICAL  HP,SP.TP*IOEBUG.NFi<R,IONS»MOLES.FROZ»£aL.PSlA«RKT 
LOGICAL  Shock, mmhg, PASCAL, EV,IC,0£TN,CPCVFR,CPC‘VE0*SIUNIT,EUNITS 
LOGICAL  Fa.OF.fRaTIO*FPcT 
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OUTPUT* TNOX*00Ofl 
N9X*0010 

NOX*0030 
N0X*n040 
NDX*005n 
NOX«n06O 
NCX*007O 

Nnx*oo«»o 
NOX»009(1 
NOX*ol9f) 
NOX»OllO 

NOx«oi?n 

NOX*nno 
Nf)X«0l40 
NOX*0 ISO 
NOX«nli;ft 
N0X«01?0 
NOX*nlRn 


DIMENSION  0M:T(3,3),NC0{4),ENSERT(3,3),LK{2),L»/P{2)  ,LvMf2) 
CGMhON/POinTS/hSUh(i3>  »SSUM(l3!  »CP«<13> *0LVTP{13>  *DLVPT(i3> 

1  »34M*aS()3}.P(26) »T(26)  *  V 1 13)  ,PPP(13)  *Wm<13> ,S0NVEL(l3> *TTT(13) 

2  ,T0TN(13) 

COMMON/SPECES/cOEF(2*7«150>  *S(tS0> »ENilS0*13> *ENLN(150) *H0(150> 

1  .OELN{150J,An5*150},SUR{l5S,3J  *IUSe{150),TeMP(50,2) 
COMmON/MISC/ENN,SUMN,TT,So,ATOH (3,101) *LLMT { 15), 90 (15) ,8{)P  (15,2) 

1  »TM*TLOH,TMTO,THIfiH*PP*CPSUM«OF»EQRAT«FPCT*P*RR»HSUsO*AC<2) *AM(2) NOX*01<jO 

2  ,HPP{2) ,RHO(?) ,vMTN<2> ,VPIS{2) ,^P(2j ,OATa<22) ,NAHE{!B,5>  N0x*0200 

3  ,AnUM(iS,5) ,PECWT<i5J  »ENTH(is>»FAZ(iS) »8TE«P(l5>  *EGXtlS>  *DENS(i5)NOX*ft21n 

4  ,RhOP»Rmw(15) ,TLN  N0X*0220 

COMMON  /DOUBLE/  6(20*21).  X(20)  NOX*n23n 

COMmON/inoX/  TnEBUG*CONVG.TP,HP*SF,HPSP,TPSP,HDLE5*NP,NT»NPT,NLM  N0X*n24fi 

1  *nS*ksAT,imAt*I01»iQ2,N0MIT*iP*nEWR»NSUB,nSU3,iTn»CpCvFR,CpCVEQ  NoX*0250 

2  ♦ir,NS!NC.NSERT.JSOL*JLIQ.KASE*NREAC*lC»JSl*VOL'»SHOCK  N0X*0260 

C0mm0N/P£Rf/pcp(26)  *Vm0cU3>  *SPlM(l35.VAcitl3)  :SUBAR(13>  fSUPMR<13) NQX*027n 

1  ,CPRF(I3),AEAT(13},CSTR,£QL,FROZ,SSO  N0X*n2«0 

COmmOn/snew/ron.  Inofa  nox*o?ro 

COMmON/DICK/MIx  NOX«n300 

COMM0n/EOnEW/Ri (30»4oi *R6(30*4n> *EK1 (30»40>  *EK2(30»4f)) *R0H(30*40> *NOX*n3lo 
1Ch2(30.40J  »aTT ( 13*40) *f (4(» *PhI (40) *BC0Nl (30.40) *BC0N2(30*40) *8CONNOX*o320 
■  “  N0Xi»n33n 

N0X*0340 


26(3.-40) 

eoji valence  <omit,fnln) . (enSert.enu*3> ) . (nlh*l>  * (of.oxfl) 


OaTa  MIT/4H0MIT/.BLANK/1H  /»  PSiA/AHPSlA/.REAC/AHREAC/tIZj'EHoo/ 

1  . TNPUT/4HINPU/. IP/lHE/. IN5eRT/4HINSE/*  ThRM/4hTher/,£N0/3hfND/’ 

DATA  LH/4MH,CAt4HL/G  /.LVP/2HV*, i«  /,LVM/2HV., 1H  /.NMLT/4HNAME/ 

NfiMELIST/TNPTP/KASF»P*T»ERATlO»OF»FPcT*FA*TP.HP»SP.RKT 
I,  PSIA.M.MHG,  Shock,  IONS,  EV,V,DETN,CPCVFR,CPCVEO,ID£BUG 

2».SIUNIT»EUNITS,M1X 


TlOW  s 
N  E«R  = 


►false. 


1 


WRITE (6,400) 

400  poRmaT ( IHi ) 

203  Read  <s,204)  (nATAd)  *1*1. 15) 

204  FORMAT (S(3A4,3X) ) 

WRITE  (ft«?045) <0ATA(I) *1=1 *15) 

2045  s-0RmAT(1X,5(3A4,3X)  ) 

IF(DATt{l) .EO.THRMj  GO  To  90 

:f(daTa(1) ,eo.reac)  go  to  11 

IE  (OATA(I).EO.MIT)  GO  to  205 
I?  (OATa(\) ,FO, INSERT)  GO  TO  iso 
IF  (OAT*  (1)  ,EO.  INPUT.  OR.  OATAd)  .EQ*NMLT) 
IF(DATa(I) #EG, BLANK)  GO  TO  203 


GO  TO  210 


NOX*0350 

N0X«n360 

NOX*n37n 

NoX*p3B0 

N0X*0300 

NOX*o40O 

VoX*0*10 

N0X«04P0 

N0X*n430 

NOX*0440 

N0X*0450 

NOX*o4f,o 

NOX*0470 

NOX*n4Ri> 

N0X*n4R0 

\'OX*0500 

Nox*nsin 

Nox*ns?o 

NOX»053n 

N0X*0540 

NOX»0550 

N0X*0560 

NOX*0570 

NOX*05ft0 

N0X*0590 


I 


I 


1023  WRlT£<6,lo?4)  1  ! 

io?4  foRmaTuohoerror  in  above  CA«q.‘  ignore  contents. 

SO  t0  203 

fl  NO-^iT  =  o  !  , 

nsert  =  0 

:  MOLES  ♦  .FALSE.  : 

CALL  REACT 

IF(L.EO.O)  WRITE (4*52) 

52  ~ORMAT{?4hoERR'OR  IN  REACTanT  CAROS) 

S3  TO  203 

C  '  ' 

c  read  thermo  data  from  cards  and!  store  on  tape  a 

I 

c 

90  NEWS  =  .TRUE. 

REWIND  -4 


mox*o*oo 

0 

N0X*062n 

NOX*o630 

N0X®0640 

N0X*0450 

NfiX®0460 

N0X*nft70 

NOX«of>RO 

N0X*0690 

NOX*ft7no 

N0X*0710 

Nox*n7?n 

NOX®0730 

N0X*0740 


■  rfao<5»s)  TLOw.TMin. thigh 
5  FORMAT  (3F10.3)  < 

WRITE  (4.5)  TLOWvTMIO. THIGH 
07  aEAO  l5*l<>)  COATA(I)  *1=1*16)  *NCOtl> 

;  10  »3RmaT  (3aA»6X»?a3*A  (a2*F3;.0)  * Al  *2F10,3*  1 15) 
IF(0aTa(1).E0. PLANK)  0ATA(1)CEN0  . 

■WRITE  (4*iO) (DATA(I) »Isi»i6> 

•IF  (DATA  ( 1 )  .EQ.ENO)  60  TO  203 
R£A0<5.t!)>  (OATA(I)  .1=1*5)  *NC0<2)  *  COATA(J)  »J*6* 
;  1<=11*14)  »NCO(A)i 

20  FORMAT (5£15.8,I5/5E15.8,IS/4E15.8,I20) 

WRITE  (4*21) (OaTACT) *1=1*14) 

21  poRmaT (5E15.8/5E15.8/4E15.8) . 

00  25  .  1  =  1,4 

IF<NCD(T) .EO.I)  60  TO  25 
,WRITE(6,22)  (OATA(j) ,J=1,3) . 

22  F0RmaT(28H0ERR0R  IN  OROER  $F  CAROS  FOR  *3A4) 

25  CONTINUE 

.  SO  TO  97 


NOX®o7PO 
i  NOX*0760 

N0X»fl770 
N0X*n7Pn 
NOX*0790 
NOX*ftRon 
N0X®08] 0 
NOX®0B?0 

10) *NC0(3) *  CDATA(K) *NOX®nB30 

N0X®0R40 

nox»oB5o 

N0X«nH40 

N0X®f)870 

N0X®0880 

NOX*oago 

N0x®o9oo 

N0X*09ln 

•nox«092o 

N0X»0930 


C 

c  check  Insert  cards 
c 

1«0  00  ]  35 , 1=4*15*3 

IF  (DAtAll) .EO. BLANK)  GO  JO  185 
nsert  =  NSERT*] 

EnS=RT^i ,nSE«T)  =  haTA { I ) 

!  En5ERT<2,nsERT)  =  OATA(T*i) 
EmSeRT (3*NSERT)  =  DATA  ( 1*2) 

185  CONTINUE 
50  TO  203 


N0X®n94r. 
NOX*OR50 
NOXooRBO 
VOX°f}R7o 
NOX®09BO 
N0X®n990 
NOX»] Qon 

nox*ioio 

NOX®] 020 
•N0X®1  030 
N0X®1 040 


C 

C  :  CHECK  OMIT  CAROS  ' 

C 

205  DO  208  1=4*15.3 

IF(DATa{!) .EO. BLANK)  GO  TO  208 
;  NO'ITT  =  NOMIT*! 

DM I T 1 1 ♦ NOm I T )  =  DATA ( I ) 
OMlT:i2,NOMlT)  =  0ATA(I*1) 
0MIT(3,NC)MIT)  =  DATA  ( I'*2) 

208  CONTINUE 

NEW»=  .TRUE. 

SO  TO  203 

C  : 

c  begin  namelist  inpt2 
c 


■NOX®1050 
NOX®]060 
NQX®1 070 
•NOX®]08n 
NOX°l Ogo 
N0X®1 100 
NOX®iUo 
•NOX®1120 
VOX®] 190 
NOX® 1 1 40 
N0X®1 i 50 
NOX® ) 1  AO 
N0X®1 170 
NOX»ll30 
N0X®1190 


2iO  Do  300  1«1,26 
=>CP(D  *  0. 

P(I)S  0. 

T{ I>  =  0. 

V  < I J  =  0. 

300  CONTINUE 

V  1  s  0, 

V2  3  V* 

SHOP  s  0-> 

<ASE=  0 
TP  a  •FALSE* 

H»s. FALSE. 

SP=. FALSE. 

R<T  »  .FALSE. 

CPCt/FR  a  .FALSE. 

CPCVEO  .  .FALSE. 

SHOCK  »  .FALSE. 

detn  *  .false. 

EV  a  .FALSE. 

pascal  a  .false. 

MMH6  s  .FALSE, 
psia  -  .false. 

S  a  1.9A7165 
aa  -  4iP4.«R 
SIUnIT  =  .FALSE* 

EyNlTS  s  .false, 
ions  *  .false. 

ToEsUGa. false. 
r As  .false. 

0F=  .FALSF. 

EPATIO  s  .FALSE. 

FPCT=  .FALSE. 

00  303  I  a  1,50 
MIXtI>  a  0. 

303  CONTINUE 

EOL  *  .TRUE, 

PEADIS.INPT21 
00  305  1=1,25 
IF (P ( I  >.£0.0.)  60  TO  322 
N?  *  I 

IF  (MMHG)  P(NP)  *  P(NP)/7A0« 

IF  JPASCAl)  P(NP>  *  P <NP> /1°1325. 

IF  <  pSI A  >  P(NP)«P(NP)/14 

305  CONTINUE 
322  00  625  1ST  =1.40 
INOrA  3  1ST 

IF(lST.NE.l>  WRITE (6*400) 

IF {  Mix  (IST).NE.O.)  go  TO  323 
IF(lSi.NE.l)  GO  TO  1 
^RITE  t6«72*) 

7?4  foRmaHarhono  tnpt?  Value  given  for 
IF  C*P<?).NE.O.>  OXFL  3  WP(1)/WP(2) 
60  TO  333 

3P3  OXFl  a  MIX (1ST) 

RON  =  MIX(IST) 

IF (FA)  OXfl  »1./  MIX(IST) 

IF(FpCT)  OXFL  stlOfl.-  MlX(IST))/ 
TF(.nOT.ERaTTO)  GO  TO  333 
coR'f  =  MiX(tsT) 

IF {EORaT.EQ.I.)  EORAT  a  1.000005 


NOX*1200 

Nox*mn 

N0X*1 220 
NOX*l23ft 
N0X«\240 
N()X*1 250 
N0Xai260 
N0X»1270 
N0X*l2Bft 
N0X*\29t) 
NOX*) 3oo 
NOX*1310 
N0X*\3?0 
N0X*\330 
N0X*l340 
N0X*\350 
N0X*t3A0 
N0X*1370 
N0X*I3«0 
NOX*13qO 
NOX*t400 
N0X«1«)0 

N0X*I4?0 
N0X»\43n 
NOX»U40 
N0X*1450 
N0X«1460 
V0X«1A70 
N0X*)4R0 
Nf)X*l  4q0 
NOX*\50O 
N0X*i5in 

N0X*1520 
N0X»l53f) 
N0X*1540 
N0X»1550 
N0X*l5fifi 
N0X®1 570 
N0X®)500 
N0X*1 590 

nox*)Aoo 

NnX*l610 

696006  NOX*-  )620 

N0X»)630 
NnX*i6*n 
N0X«i650 
NOX*tfifi0 

N0X*\o70 
N0X«)6R0 
NOX*1690 

of.  eo«aT»  fa»  or  FPC7  NOX^l’OO 

N0X*\7l 0 
N0X*1720 
N0X*)73n 
NOX*T74fl 
N0X*1 750 

MIX (1ST)  N0X*\760 

N0X*-(770 
N0X#1 7B0 
N0X«1790 


61 


333 


744 

745 


746 

747 


755 

7.40 

7*6 


432 

770 

730 


755 


OXFl  =  UE0RAT*VMlN<2>-VPLS<2n/<VPUSU>*EQRAT»VM!Nm> 

SUM  =  OXFl  *1»  . 

U?  =  (OXFL<*V«IN(l 1 ♦VMIM{2) >/SUM 
V/{  =  (nxFL«VPLS(l)  *VPLS{?) ) /SUM 

l^^;on!''»F:0S;T:^olVMO:i2l  .NE,  0.)  GO  »0  T»* 

SHOP  =  SHOC2)  ... , 

If  (RHO?  .EG.  0»)  t?H0?  *  PMO(l> 

s2op°=COXfLM  . >  *RHG ( 1  >  «RHO (2)  /  CRHO  C 1 )  ♦OXFL*RHO (2) > 

LL  =  L 

JF  (.NOT. IONS)  60  TO  746 
LL  *  L-l 

IF  (LLMT(L) .EQ.IE>  GO  TO  746 
LL  =  L 
L  =  L*1 
LLMT(L)  =  IE 
331L)  =  0. 

30il)  (OXFL  *80P(I*1>*  30P (I »2>  > /SUM 

CONTINUE 

HSU*0=(OXFL«HPP(1>  ♦  HPP(2))^SUM 
If  (.NOT. NEWS)  GO  TO  786 

call  Search 

IFiSHOcK.OR.OETN)  60  TO  760 
00  755  N=i.NREAC 
IF (NAME (N»5) .N£.IZ)  GO  TO  755 
TT  =  HT£MP(N) 

CALL  HCALC 
GO  TO  7nO 
CONTINUE 
~*RIT£l4«lNPT2) 

£NN  =  .1 
SUM\  s  ENN 
XI  =  NS  -  NC 
Xj  =  ENN/XI 
XLN  =  ALOG(XI) 

DO  432  J=l«NS 

I?(tU5eCJ). EG. -10000)  IUSE«J)*0 
IF  (IUSECJ) .NE.O)  GO  TO  432 
EN(J»i)  =  XI 
ENuN(J)  =  XLN 
CONTINUE 

format1  riH.0»17x»4HFUEL  »  13X«7H0XI0aNT  » 12X»7hMIXTURE  //j 

•  .  ^7A0)4LH*HPP<2>  tHPP(l)  .HSUBOfLVPfVPLSt?)  .VPLS(l)  *Vl» 

•  ’*INi2)  .VMiN(l)  »V2 
HSUHD  -  HSU30/R 
WRITE  (6*7b55 

FORMAT  (SH  ATOHS/G  )  ...... 

*RITEifi.7S0) (LL«T(I)*8LANK»80P(I»2) *80PCI*1> *80  CD  »I*. »L) 

101*  L-l  „ 

IF (NC.EO.ft)  GO  TO  790 
DO  302  j=i»NS 
:.F(IUSF(.J)  .EO.Oi  GO  TO  302 
IF  (IUS£ { J)  ,GT .6)  IUSE(J)=  -IUSECJ) 

EN(J»1)  =  0 » 

CNLNlJj=0. 


N0X»1800 

N0X«\8in 

N0X*1820 

N0X«)B30 

NOX^Btft 

NOX*)850 

NOX*)B60 

N0X*lB7f) 

NOX*18PO 

N0X«lBt)0 

NOX«)900 

N0X«\910 

N0X«)9?0 

N0X*1930 

N0X«l940 

N0X«)95f! 

N0X*)950 

N0X«1970 

N0X*»vR30 

N0X«1990 

NOX^POOO 

Nox^pnin 

N0X°20?0 

Nox*?mo 

NOX^FOAn 

N0Xu2f)5n 

N!OX*?06n 

•OOX^P070 

Noxo?o=n 
NnX«?OQn 
NOX«?100 
NOXoPil n 
N0X«?1?n 
N0X«?13n 
NOXopUn 
N0X»?l50 
snX°Pi60 
N0X*?17D 

NOXe?*«n 
•\nxopico 
N0x°P2nn 
nox°p?) n 

N0X<*?22n 

N0X°?P5n 

N0X°PP40 

N0X«?250 

Noxoppso 

N0X*P?7f> 

N0X«??30 

N0X®P?9n 

NDS«230n 

NTCSAOP310 

NfPi*>?3?0 

vnx«?330 

N0X«P3t.'i 

NOX°?350 

N0X«P36n 

N0X«?37n 

N0X*p3Rn 

NOX»23qO 


t-2 


IF(nSERT.eO*0>  go  TO  302 

Rox*?ion 

DO  301  T=1«NSERT 

nox*?ajo 

.NF.ENSfRT(i»I) ) 

30 

TO 

301 

H0X*?4?(J 

IF<S08(j«?>  »NF,ENSFST (2t I) ) 

GO 

TO 

301 

HOX*?A3^ 

IF(SU8(j,3)4NE.ENSERT{3,In 

GO 

TO 

301 

NOX»?44«l 

EnSfRT(i.i)  =0. 

N0X*?4S0 

101=  101*1 

ROX*?*SO 

IUSE<J)=  -iusecj) 

*J0X*?47n 

3a  1 

CONTINUE 

NOX*?4BO 

3*2 

CONTINUE 

\'OX*?490 

790 

ITN=  35 

N0X*?500 

IC  =  ‘FALSE. 

N0X*2510 

JSOl  =  0 

NOX«?S?0 

JLIO  =  o 

N0X*?S30 

IF(qEtN)  call  peton 

N0X*?540 

if(rkT)  call  rocket 

N0X«?550 

if  (TP)  call  holier 

NOX*?S6o 

IF<hP>  call  CHrSTN 

N0X*?570 

IF (SHOCK)  CALL  SHCK 

N0X«?SRO 

625 

COMTINUE 

m0X*?S90 

vsert  =  0 

N0X*2600 

GO  TO  \ 

N0X*?610 

END 

N0X*2620 
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SUBROUTINE  react 

DOUrLE  PRECISION  G.X 

LOGICAL  HP.SP.TP.  I  n£»<JG*  CON  Vq  .NE^R.  IONS  .MOLES  »£Ql»FROZ 
DI-ENSVTN  A:\AMP (15*5)  »  V  { 1 5) 


»cT*noon 

RrJ^noin 

RcT#ni)2n 

RcT*oom 

R>CT«004O 
RCToOOSO 
RCT*,706fl 
RcT^norn 


COMmOK/mi  Sr  /  -'NN  .  SlHN*  TT  ♦  SO  »  ATOM  (3.101)  *LLMT  (15)  *30(15)  »bOPU5.2) 

1  «lM,TLO»,TMin,THIflH,PP,CPSUM,OF.EQRAT,FPCTtR,RRfHSURO,ACC2) .  AM<2)  RcT»00>?0 

2  ,HP?(2).S^<?)*VMTN(?).VPLS{2)»WP{2)t0ATA{22)*NAMECi5.5)  RcT*f)OCfft 

3  #AsUMnC.5l  »PEC/T (15)  .FNtH(IS)  .FAztlB)  .RTEMP(15)  .FOX(IS)  *0ENS(15)  RCT<*filOO 

4  ,P.:<uP,PMW(i3>  .-7Lt!  RCT“0110 

COMMON/ iNnX/  5:jr?,cONV6. TP. hP»SP,HPSP»TPSP. MOLES. N».NT*NPT.NLM  RcT*0l2n 

tf4S,KMAT,IMAT,iO),IQ2.NOMlT,IP.NEHK,NSU8.NSUP,lT»J,CPCVFR,CPCVEQ  RcT*nl30 

-  —  -  *  RcT*nl40 

RCT«0150 
RCT«flUO 
RCT«nl70 

DaTa  M0L/1hM/.0X/1H0/.LaNK/1H  /.IZePO/2HOO/  RcT*OlBO 

RcTonion 
kCT°o200 
Rct®02in 
RcT«n2?n 
RcT*n?3o 


2  . IONS, NC.NSFRT.JSOL.JLlQ.KASE.NREAC.XC.JSl.VOLt. Shock 

equivalence  (name, anamE) « (NLm,lj 


00  ’0  K=1.2 
WP  ( K*  ~0  . 
HPP(K)=o. 
RHO(K5=0« 

vplsik)=*>, 

VMlN(K)^0, 

AC<K)~0. 

am(k)=o. 

DO  a  J=1.15 
LL*1T<J)=0 
3:3(J/k)=o. 
8  CONTINUE 
1 o  CONTINUE 

V=1 
L=l 


RcT*n?sn 

RcT»n?A0 

RCT®0270 

RCT«n?Rft 

RCT*ft29n 

RCT»n30fi 

RCT®n3lO 

RcT®n32n 

Rci*n33n 

RCT®n340 


20  REA0C5.21: 'NftMflN,-'  .ANUM(V.I), 1=1.5) .PECMT(N) .MDLE.ENTH(N),FaZ(N)RcT®0350 

1  )Rr£MP((  )  ,FOX,N)  V  )ENS(N)  RCT®r.3f.n 

21  F0-lM-S’(5U?jFr..V;  .F7.5»Al,fr9.5.Al»F8,S»Aj.F8.5>  RCT®n37n 

If  :naM£(N,1)  ,e<5.LANK)  GO  to  200  Rr.T®n3An 

If  L. EG, 0)60  to  20  «CT®n39n 

•  RITE.  If,-.  41)  5N/iME  •*-,;?  . aNUR (N. I)  *  1  =  1  »5>  .PEC*T(N)  .M0LE.ENTH (M)  .FftZ  RcT°0*nn 

1  ss).  R'EmP(N). fO  •*(  >~OEWS(N>  RcT°04in 

3i  :  0R»  ATnx.5(A2,JX>FV,4.2Xi  ..~8,4,2X,  A1,FU.2,2x.A1,2X»F8.3.2X.  RCT®n«2n 

3  '-i»3A.fa,5)  RCT°n43n 

Zb  IF(MOLF.EQ.MOL)  MOLES-. TRUE*  >1cT°0440 

<=2  acT®R45n 

IF(FOX(.M)  ,EQ.0X)K=1  RcT*048n 

DO  3*  J=1 « 15  RcT»0470 

OaTa(j>  =  o.  RcT®o4Rn 

33  CC-TINUE  RCT«0490 

RS=0.  RCTa0500 

DO  1 00  J.!=1.5  RCT«n5lO 

1r  1 aNUm(N, jj) ,CQ.0.)G0  TO  101  RCT®0520 

DO  4l  J=l,15  ~  RCT«0530 

Sj  =  „■  RC7®t)540 

IF(LL*7<  J)  .EO.fl)  GO  AC  45  RCT®r>550 

IFI-nAME(N,JJ).EQ.LLMT(J)>GO  TO  46  RCT«OSAO 

41  CONTINUE  RCT®n570 

45  L  =  NJ  RCT#05a« 

LL-^T  { J)  =NiM£  (N,  JJ)  RcT®n5on 


$4 


4fc  00  48  KK=1.101 

IFUTOMQ.KK)  .EQ«ANAMECN,JJ)  )S0  TO  50 
48  CONTINUE 
L =0 

SO  TO  20 

50  SM=f?K*ANUM{N,Jj)*AT0M(2tKK) 

V {J)SAT0M(3*KK) 

OaTaU)  =  »MUM(N,JJ) 
lao  CONTINUE 
ini  ^c^tsPecwtin) 

IF (MOLES)  PCWT*PCWT*RM 
rfP(K)=WP(K)  *  PCWT 

IF (NAME (N, 5) .NF. IZERCJ  HPP {K) *HPP (K) *ENTH(N>  «*PC*T/RM 
AM  (K>  *AM  (K)  ♦PCtfT/RM 

do  no  j*i.l 

AOP(J*K)*OATA(J)*PC«T/RH  ♦BOP(J*K) 

no  continue 

IF(DENS(N).NE.6»>S0  TO  115 
GO  TO  117 

115  RHO(K)sRHO(K)»PCWT/DENS(N> 

117  RM*(N)  =  rm 
V  =  N*l 

IF (N*N£« ig)  fiO  TO  ?o 
200  NkEaC  =N-1 

IF(u.EO.O)  GO  TO  1000 
00  ?2C  N=j»2 

IFCwP(k) .EO.O.lfiO  TO  220 
H?P(K)=HPP(K)/WP(K> 
am ( k)  =  WP(K)/4M(k) 

IF (RMO {<) .NE.O.)PHO{K)=wP(K)/RHO(K) 

DO  ?15  J=1 « L 

•iOP  l  J»K)  =rOP  { J*K)  /'WP  (K) 

IF{V(J).LT.0.)VMIN(K)3:  VMIN {Kj *80? { J*K> *V ( J) 
IF(V(J).GT.O.)VPLS(K)syPLS(K)*80P(J*K)*V(J> 

21*5  CONTINUE 

IF (MOLES)  GO  TO  220 
00  218  N=1 » NREaC 

IF(FOXin) .EQ.OX.ANO.K.EQ.?)  GO  TO  218 
IF(FOXJn) .NE.OX.tNn.K.EQ.l)  GO  TO  218  * 

PECwT(N)  *  PECwT(N)/wP(K) 

2i 8  CONTINUE 
220  CONTINUE 

NE«lrt=,TRUE. 

Do  230  \<  s  1,nrEAC 
IF  (DENS(N) .NE.O*)  SO  TO  230 
»HO  (1)  =  0. 

RHO (2)  =  0. 

SO  TO  1000 
230  CONTINut 
1000  RETURN 
END 


RCT*OSOO 

PcT«ft81(i 

RCT«n«20 

PCT*fi6DO 

RCT*0440 

RCT«o850 

RcT#nfi8o 

RCT*0870 

«CT*06R0 

RcT»ofe*)n 

RC7«0700 

RCT*0710 

RcT«n72n 

RCT*0730 

RCT*3740 

RCT*0750 

RCT*n760 

RCT*o77(l 

RCT*07B0 

RCT*07O() 

RcT#ft305 

Rct*orio 

«CT*nB20 

RCT#0830 

«CT*0840 

RCT*n850 

«CT*0860 

RcT*nB70 

RCT*°RRn 

PCT*nR90 

RcT*nRon 

RcT*n910 

«CT*0920 

RcT*npin 

RCT*094ft 

RCT*o«J5n 

RcT«09R0 

«CT*o970 

RcT»n9R0 

RCT*0990 

RCT«1000 

«CT»1010 

RCT*10?0 

RCT*1030 

RCT*1040 

RCT*1050 

Rct*ioro 

RCT*)070 

rCT»1080 

«CT*1090 

RC^IIOO 


<J  o 
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SUBROUTINE  SEARCH 


SEARCH  tAPE  for  THERMO  data  for  SPECIES  to  BE  CONSIDERED 
INTEGER  SUR.OMIT.END 

LOGICAL  nfwr 

DIMENSION  DATE (2*3) »MT (4) ,3(4) ,OMIT(3»3) 

COMMON/S?ECES/t.OEF(p»7*15o) ♦S(iSO)  »EN(150»13>  »ENLN(15(>)  .HO  (150> 

1  .DELN(lSn)  *A (16*150)  »SUR  ( 150, 3)  ♦  IUSE  (150)  .TEMP (SO. 2) 
COMmON/hISC/ENN.SOMN.TT.So, ATOM(3, 1 01 ) ,LLMT ( IS) .80 1 15) .80* (15.2) 

1  «TN»TLOrf,TKTf)»THlfiri*PP*CPSUM.OF»£QRAT.FPCT»R.8R,HSU3o*AC(2) »AM(?) 

2  »HPP<2) »RHC (?) » VMTN (2) »VPLS(2) »WP(2) .DATA(22) ,NAME(15-5) 

3  ,anUM(is,5) ,PEC*«T(15) .ENTH(1S)»FA2(1S)*RTEMP(15>»FOK(15)*OENS<1S< 

4  «RhOP,«HW(1S) ,TLN 

COMmON/I Nr.X/  TDEBUr?,cONVG,TP,HP.SP,HPSP,TPSP,MOLES,NP,NT,NPT,NLM 

1  .NS.KM47. ImaT. JOi* IQg.NOMlT, IP.NE«R.NSUB»NSUP. ITN.CPCVFR.CPCVEO 

2  •  IONS.NC.NSERT. JSOL. JLIO.KASE.NREAC* IC» JS1  »VOL« SHOCK 

EQUIVALENCE  (OaTE.EN) . (0MIT*ENLN) » (ENDD.END) » (L*NLM) 

OATa  6AS/1HG/.EN0/3HEN0/ 

NC=  C 
IX=  0 

COEF(l.l.l)  =  ENOD 
I  =  I 

DO  3  1=1.150 

IF(A(1,I) .EQ.ENOO)  GO  TO  4 
DO  3  J=1.L 

A(J,I)  =  0, 

3  CONTINUE 

4  MAxNS  s  I 
R£J#INO  4 

R=ao(4«s)  tloh.tmio.thigh 

5  FORMAT  (3F10.3) 

NS  =  1 

7  READ  (4,10) (SUB (NS, Ij ,1=1,3) .DATE (1 .NS) »QATE{2,NS> , (MT(J) ,8(J) , 


SEA*0010 

SF.A»n02O 

SFA*0030 

SEA*004f) 

SEA»005ft 

SEA«00A0 

5EA*0070 

SEAofiOBO 

SFA*n090 
sea»oioo 
sea*»oiio 
Sfa^oipo 
Seas0130 
SEA*0140 
Sr a»oiso 
SEA*0l80 
Sea* 0170 
Sea*01B0 
SEA»nlR0 
Sfa*0200 
SEA*n2lO 
Sea*o??o 

SFA«n230 
S£A<M}240 
SEA »n?sr 
SfA»o260 
SEA*0?70 
SEA*0?B0 
SEAO02Q0 
SEA*0300 
SEA«03!0 
Sea* 0320 
SEAc-0330 

ScA*n34o 

Sfa*0350 

5£A*03fin 

SEA°0370 

S£A®0350 


\  J=l»4) .PHAZ.Tl.T? 

10  foRmaT (3a4,6X,PaS.4 (a2»F3,0) »a1,2F10«3) 

IF (SUd(NS,l) .EO.ENO)  GO  To  171 
RFAC  (4»?o)  < (COEF(I.J»NS) »J=l»7) »I*1»2) 
20  FORMAT  (5E15.B) 

IF (nOmjt.fQ.O)  GO  TO  810 

00  q05  1=1  »N()Mj j 

DO  804  J=i,3 

1F(0M1T(J,I),NE.SUB(NS.J))  go  TO  805 

804  CONTINUE 
SO  TO  7 

805  CONTINUE 
810  DO  320  K=l,4 

IF (H (rt) .£O.Q< }  60  TO  825 
DO  i£>a  1  =  1,  L 

IF(lL«T(IJ ,£Q.mT(K> )  GO  To  820 
188  CONTINUE 

0C»  q!9  _'=  1 . L 
81  <5  A  :  J.NS;  a  0. 

SO  TO  7 

820  A(I.f»S)  =  *('<) 


SEA«n3D0 
SEA*0400 
S£ A°04 1 0 
S£A*n4?n 
S£ A«n430 
SEA**n44n 
SEA*0450 
SEAO(1460 
S£Ao0470 
S£A«0430 
S£A»049n 
S£A"n5on 
SFAOOSIO 
S£A»nS?0 
Sr  4*0530 
SEA*nS40 
S£A«n55n 
SFA*n5 fco 
5EA°057  0 
SEA*05B0 
SEA"0590 
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825  IF(NS.EO.maxNS)  GO  to  87q 

IUSF<NS>=  o 

TF(PHAZt£Q.6AS)  GO  TO  170 
\C=  NC*i 
TEMP(Nc.1)=  Tl 
T£MP(NCt2)s  T2 
IX*  IX*1 

IF1IUSe{NS-1).EQ.O  .OR.  NC.EQ.l) 


SE**0600 

SEA«0610 

SfA*06?0 

SEA«n630 

SeA*Q6aO 

SEA«0650 

Sea*0660 

GO  TO  145  SEA«o67n 

SEA*n6R0 
SFA*0690 
SEA*o70O 
SFA*07lo 
SEA*n7?n 
SEA«o73n 
SEA*0740 
SEA*0750 

Sfa*07s0 
S£A*o770 
SEA*0?An 
SeA«0790 
SEA*n«»co 
SEA*nRir, 
Sfa#08?0 
SEA»n«30 
SEA«*nR«n 
SEA*0850 
SEA«n86n 
SEA«|)B7o 
S£A*o880 
SEA*o87<' 


00  830  I=l«L 

IF(a<I*NS> .NE.A<I»NS-1) >  GO  TO  145 
830  CONTINUE 
IX=  IX-l 

1*5  IUSE(NS>«  -IX 

170  NS*  NS* l 
GO  TO  7 

870  *RITE(6,871)  (SUB (NS, J> , Jel .3) 

871  FORMAT  U5H0DIMENSIONS  IN/SPECES/TOO  SHALL  TO  CONSIDER  *3A4) 

GO  TO  7 

171  NS*  NS-i 

nfwr=  .false. 

WRITE(6,172) 

172  FORMAT (42H0SPECIES  BEING  CONSIDERED  IN  THIS  SYSTEM 
DO  174  I=i ,NS«5 

15=  1*4 

IF (nS.LT. IS)  I5=NS 

174  KRITE  (6.1761 {daTE<**J> .DaTc(2.J>  *SUB tj.l) »SUb(J»2> »SUB<J*3>  »J«I» 
1  15) 

176  FORMAT (5t5X.2A3.2X.3A4) > 

return 

end 
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SUBROUTINE  EoLPR* 

ROUTINE  To  C&LCULaTE  EQUILIBRIUM  COMPOSITION  ano  properties 
DOUBLE  PRECISION  x.O 

LOGICAL  HP,SP»TP«IDEBUG»CONV6.IONS,MOLES»FROZtEQL»LOQV*HPSP»TPSP 
LOGICAL  ISIN6.IC»SH0CK 

DIMENSION  PROM (18) 


EqL*0000 

EQL#n010 

EOL*00?fl 

Eol»ooio 

EQL*nOAo 

EQL*0050 

EOL»OOAfi 

EOL*0070 

EOL°OP°ft 

EOL-0090 

EOLttolon 

£OLaOllO 

EQL*nl?n 

ECL*nl3n 

EQL*oKO 


C0mm0N/p0iNTS/hSUM{13) »SSUM(13) .CPR(13> ,0LVTP( 13) .0LVPT(i3)  EOL-0090 

1  .GAMMAS <131  »P<26)  .T126)  «V(13)  »PPP(I3>  »WM(i3) «SONVEL(l3>  .TTTmjJ  EOLttolOO 

2*  TOTN  C 1 3)  £OLaOllO 

COMmON/SP£CES/COE£(2.7,150) *Sn50>  ,EN{150«13>  .£NLN{150)  *Hd<150)  EGL*nl2n 
1  »DELN(i5o) »Ati5«lSol »SUB(l5o»3) »1USE  (150) .TEMP (50.2)  ECL*nl30 

COMmOn/mISC/enm.SUmN»TT.s6»ATOm(3.101) .LLMTI15) .30(15) »B0P(15.2}  EQL*Ol40 

1  ,TM.TLOW,TMin,THir,H,PP,CPSUM,0F,EQRAT.FPCT,R,RR,HSU80.AC(2) .AH  12) EaL*0l5n 

2  «H?P(21 «RH0 (2) «VMIN (2) »VPLS<2) »WP(2) »daTa(22) »NAMF(15»5)  EOL^OlftO 

3  .ANUMn5.5),P£C«T{l5)  .ENTH  (15),FAz  (1S>  .RTE«P  (15)  »FOX  (15)  .0£NS(15>  EGL*0l?0 

4  «RhOP.RMW(15I .TLN  £OL*OlRO 

COMHON  /DOUBLE/  6(20.21) ♦  X(20)  EOL*0l90 

COMmON/IN',X/  I0E8U6,C0NVG,TP,HP,SP,HPSP,TPSP.M0LES,NP,NT,NPTjNLM  E0L«0200 

\  .nS*kma7.tmaT.IQi.IQ2.N0MIT.IP.NeMR.NSUb.NSU?»tTn»CPCVFR.CPCVEQ  EGL*o2lo 
2  .IONS,jjc,nSfRT.jSOL»JLIQ.KaS£*NREaC»IC*JS1.'TOL»ShOcK  £QL*0220 

COMmON/perf/pcP(26) ,VMOC(l3>  »SPIM(i3> ,VACI (13) .SUBAR(13) ,SUPAR(l3)EOL«n230 


\  .CPRr (13) »AEAT<13) tCSTR.ECL.FR02.SSo 
ECJl VALENCE  (NLM.L) 

data  IE/1HE/.SMALN0/1.E-6/.SMM0L/-13. 815511/ 

SI2£=  1R.S 
SIZfF  =  0. 

ISInG  =  .FALSE. 

ENNl  =  ALOG (£NN) 

LOGV  =  .FaLSF. 

PPLN  *  ALOG (PP) 

TLN  =  ALOG(TT) 

C0NV6  =  .FALSE. 

ITNUM8  a  ITN 
JS1  «  1 
CALL  C?mS 
TM  =  PPLN  .  FNNL 

if(ic>  previous  point  had  singular  matrix 

IFdC)  GO  TO  966 

IF  (.NOT.IONS.OR.IE.EQ.LLMT(L) )  GO  TO  33 
L  =  L*i 
151  =  IC’.l 
DO  499  j  =  i,N$ 

IF  (A<L.J)  .FO.O.)  GO  TO  499 
£v ( J.NPT)  =  SwaLNO 

*nln(J)  =  SmnOl 

:  Jir:  *  0 

499  CONTINUE 

33  IFInPT.eq.j. and. .NOT. SHOCK)  WRITE (6.244) (LLMT il) .1*1 »L) 

244  FORMAT  UHtlPT  ,14(SX*A4)) 

3E3IN  ITERATION 


EQL°0?4n 
EOL6n250 
EOL«n260 
E0L°n?7n 
E0L*n250 
EOL«0290 
EOL»o3no 
EQL"0310 
EOLoo32tl 
EOL«n330 
EQLo0340 
E0L«0350 
EQL*n3f.o 
EGL*n370 
E0L*03Rft 
EOL*n390 
EQL^nAfiO 
EOLC0410 
EQL*o42n 
EQL°0430 
E0Lo0440 
EQL*0450 
£0L»0460 
E(5Lc0470 
EQL«04RO 
t0L°n490 
ERL°fi500 
ELL°051 0 
EOL°0S20 
E0L»0530 
EQL°0S4fl 
EOL°0550 
EQL^nSGO 
E0L*0570 
EQL«f)5fiO 
EQL*nS90 
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43 

continue 

E0L*060^ 

IF<lC>  GO  TO  1171 

£OL*n6lo 

IF  { .NOT.CONVG.OR.JSOL.EO.O)  GO  TO  62 

rOL*0620 

ENSOL  =  EN(JSOU.NPT) 

t.jL*0630 

EV(jSOl-NPT)  =  ENUSOLtNPT^ENULIQtNPT) 

EOL®0640 

IUS£(JlIO>  =  “1‘JSE  ( JLIQ) 

EOL*»)ftSn 

101  =  101-1 

£QL®066o 

DLVTP<NPT)  =  0. 

E0L*{'S70 

CPPjNPT)  =  0. 

£0L*068f) 

G4*mAS**JPT)  =  6. 

EOL*0690 

LOGv  =  -VRUE. 

EQL*0700 

62 

call  matrix 

EQL*n7in 

NUMB  =  ITn-ITNUmB.1 

EqL*9720 

IF(.NOT.CONVG)  GO  TO  67 

EOL®o730 

IF  (LOgV.aNO.JSOL.FQ.O)  GO  To  63 

EOL*0740 

00  182  1=1 »L 

EQL*0750 

PROw(I)  *  G(IOi*I) 

EQL®0760 

182 

CONTINUE 

EQL*n770 

IF  {.NOT. LOGV)  GO  TO  67 

EOL*078o 

c 

EQL®0790 

c 

LOGv  =  .TRUE.—  SET  UP  MATr*X  TO  SOLVE  FOR  OLvPT 

£QL°0800 

c 

Eol®o8io 

63 

6dQl»I02)  =  ENN 

EOL*0fi20 

10  =  IQ1  .  1 

£0L*nR30 

DO  777  I  =  i«IQ 

EGL®nR4n 

S(I«I02)  =  Gd*l01) 

EQL*n850 

777 

CONTINUE 

EQL«0860 

67 

IF  (.NOT. I DEBUG)  GO  TO  72 

EOL*o870 

WRITE t6,772)  NUMg 

EOLar.Gt)0 

772 

FORMAT  (HHoITfRATION  ,I3,6X,7HMATRIX  //j 

EQL«0890 

DO  Oil  I=l,IM*T 

EOL®n9no 

9il 

WRITE  (6*73)  (Gd*K)  *K=1.KMAT> 

EOL*09lO 

72 

IF(CONVG)  IMAT=iKft7-l 

EQLonRPn 

TT3T  =  IMaT 

EOL*P930 

CALL  MGAU50 

EQL«o940 

IF(iTST.Ne.ImaT)  GO  TG  774 

EOL°o9go 

IF { .NOT . IDFftUG.OR.CONVG)  GO  TO  773 

EQL®0960 

WRITE  (6.373) (LLMT(I), 1=1, L) 

£01*0970 

373 

PORMAT  (7hOPI  *9 (A4, 10X) ) 

EOL*09rO 

WRITE  (6,73) ( X ( I J ,I=1,IMAT) 

EQL*n990 

73 

FORMAT  (9F14.6) 

EOL°ionn 

773 

IF(.NOT.CONVG)  GO  TO  85 

EOL*)010 

IF{. NOT. LOGV)  GO  TO  174 

£0Lo\020 

IF (jLIO.Ne.O)  eN<JSOL»NPT)=ENSOL 

EQL®1 O3O 

SO  TO  171 

EQL*1 940 

174 

SUM  —  0 • 

EQL®1 050 

00  175  j=1,l 

ECL^IOSO 

SUM  =  SUM. PROW { J) «X ( J) 

EQL®1 070 

175 

continue 

£QL®19qO 

DLVTP(NPT)  =  i.*G{IQ2,IQ1)/ENN.SUM/ENN  .  X<IOi) 

£0L«1 090 

CPR(N?T)  =  G ( 102* 102) 

HOL^UOO 

DO  1 7o  j=l , jQl 

E0L*)119 

CPR{NPT)  =  CPR{NPT).G(IQ2,J)*X{J) 

eoloii?o 

176 

CONTINUE 

P0L®1 1 30 

LOGV  =  .’TRUE. 

£0L*1 140 

SO  TO  s? 

EOL®UgO 

c 

“OL® 1160 

c 

sins'JLar  matrix 

POL11)  170 

c 

E0L*1 1 80 

c 

IrdSlNG)  SINGULAR  ONCE 

£QL#il9n 
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i?(ic)  singular  Twice 

E0L*1 200 
E0L*1210 

774 

IF(.NOT.CONVG)  60  TO  775 

EQL*lZ?n 

WRITE  16, 1 72) 

E0L*l?3ft 

172 

f08MAT{26hoDERIVATIVE  MATRIX  SINGULAR  ) 

EOL*) 240 

IC  =  •Ts’Jc. 

£0L*1 250 

SO  TO  H71 

E0L*1?60 

775 

IF  <.NOT.hP.OR.NPT.NE»1.OR.Nc.EQ.0.OR«TT,GT.100*>  60  TO  871 

E0L*\?70 

WRIT'£<6,q74) 

EoL*12bO 

874 

FORMAT (96H0L0W  TEMPERATURE  IMPLIES  CONDENSEQ  SPECIES  SHOULD  HAVE 

E0L«1290 

ireen  included  on  an  insert  card*  Restart  > 

EQL*)3on 

GO  TO  873 

EQL*1310 

871 

WRITE  (6*74) 

E0L*1 320 

74 

FORMAT  (16H0Slwr:ULAR  MATRIXl 

E0L*1330 

IF(lC)  GO  TO  673 

EOL*1340 

IF  (ISING)  GO  TO  997 

EQL*1 350 

vtzeRo  =  0 

E0L*1 360 

966 

00  q70  jj  s  !•  NS 

EOL*1370 

IF (IUSE(JJ) )  970*968.967 

E0L«1380 

967 

IF(EN(JJ*M?T1 .EQ.Q.)  60  TO  873 

E0L*1 390 

GO  TO  969 

E0L®1 400 

968 

IF(EN(JJ,NPT)  .NE.OO  SO  TO  969 

EQL*14ln 

EN(JJ»NPT)  s  SmaLNO 

EOL*) 420 

ENLN(JJ)  =  SMNOL 

EQL<*14  30 

SO  TO  970 

EOL*1440 

969 

MTZeRO  =  nTZeR0*1 

EOL*1450 

970 

CONTINUE 

£QL*1 460 

lFt.NOT.Ic)  GO  TO  971 

EOL*) 470 

IC  =  .false. 

E0L«14B0 

SO  TO  43 

EQL«1 490 

971 

ISING  =  .TRUE. 

EOL°1500 

WRITE  (6.776) 

E0L*1 51 0 

776 

FORMAT  (BhoRESTART) 

E0L«1 620 

SO  TO  43 

EOL°) 580 

997 

I?(nTZ£RO,nE.  (l-D)  GO  To  873 

EQL°l540 

IF (EQRaT.GT.1. 0O001.OR.EQRaT.LT. 0.99999)  GO  TO  873 

EQLo) 55n 

£NN=0. 

E0L«)5ft0 

\’£N  =  0 

EQL*1 570 

DO  B3  1=1. L 

E0L*1 580 

J£N=0 

E0L°1 590 

00  80.  J=i,NS 

EOL") 600 

IF ( FN (J.NPT) .EQ«  0 . )  GO  TO  8q 

EOL* 1 610 

!F  •  a  « I »  J) .£0.0.)  GO  TO  80 

E0L*1 6?0 

IF { jEN.Nt.O)  GO  TO  83 

E0L*1 630 

JEN  =  J 

£QL*1 640 

SO 

CONTTNljr 

E0L*1 650 

NFN  =  N£N*l 

E0L*1 660 

EN{j£N,n?T)  =  RO(I)/A(I.JEN) 

EOL*) 670 

83 

CONTINUE 

E0L*1 680 

IF(nEN.lT.NTZFRO)  GO  TO  873 

E0L°1 6P0 

CONVG  =  .TRUE. 

E0L°l7  00 

IC  =  .true. 

E0L°1 71 0 

RSUM(NPT)  =0. 

E0L°)720 

DO  84  J=)»NS 

tOL°l 780 

IF (£N(J,NPT) .FO.O.)  GO  To  84 

EOL*) 740 

ESN  =  £.N(  J.NPT)  *ENN 

E0L*1 750 

T£M  =  £.\  (J.NPT) 

EOL°) 760 

ENLN(J)  =  ALOP(TEM) 

EOL*\770 

HSUmvmPT)  =  H.SUM(NOT)  ♦  £N( J.NPT) *H0 (J) 

EOL4*)  780 

84 

CONTINUE 

EOL*17rO 

o  o  n  o  r>  o 
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TM  =  ALOG(PP/ENN> 

50  TO  43 

R5  TT-VUMBs  ITNUMfi.l 

obtain  corrections  to  the  estimates 


«  S  L  ♦  1 
OLNT=  X{TQ?) 

IF  (TP)  DLNTsO. 

DO  lCl  J=1  »NS 

IF  (IUSE(J))  If, 1*9°., 100 

qfi  DELNU)  =  KoCJ)*OLNT-HO(J)*S(J)-ENLN(J)-TM*X(iai) 

00  99  K=1,L 

DELN(J)s  OELN ( J) .A (K. J) *X (X) 

99  CONTINUE 
SO  TO  101 

100  DELN(J)  =  X (KK) 

<K  =  Km  ♦  l 

101  CONTINUE 

AM3DA=  I. 

AM3P,A1  =  1, 

SUM  =  X(lQl) 

IF<SUM.lT.O.)  SUM=-SUM 
IF(oLNT.GT.SUM'  SUM=0LNT 
IFUDLNT.GT.SUM)  sum=-dlnt 
00  917  J=1»MS 

IF  (IUSE(J) .NF.O)  GO  TO  gl7 

IF(  (EN{jtNPT)  .GT.OO  •ANO.OEl-N(J)  .GT.SUM)  SUM  a  DELN(J) 

IFt (EN(j.nPT) .NF.O.}  .OR.  0ELN(J> «LE.O.)  GO  TO  9l7 
SijM)  =  (-9.21?-ENlN(J)*ENNL)/(0£LN{J)-x{IQ1>) 

IFlSUKi.LT. o.)  SUMj=-SUMj 
IF  (SUm1.lT.AMRda1»  AmSoAI  *  SUMl 
917  CONTINUE 

IFtSUK.GT.?.) AMRDA=2./SUM 
IF  (AManAl.LT.iKBOA)  AM8DA  =  AM80A1 
IF  (.NOT.IOERUG)  GO  TO  11 j 
*'RITE<6t923>  TT*ENN.ENNLtPP»PPLN.AMB9A 
g?3  FORMAT  (3hOT=.f15,R» 6h  ENN=»e15.8,7h  £NNL*ElR. B» 5h  PP*»e15.8,> 
1  7H  ?PLN=E15.R,8H  AH80A=E15.8  } 


£0L*1800 
EOL*1KlO 
EQL*1 8?0 
EOL*1H30 
£QL#1 R40 
EQL«1 850 
EQL°l5fiO 
EOL*1870 
£QL*1 B80 

EQL*1R90 
EQL*1 900 
EQL°J910 
E0L°1 920 
£0L°1 930 
EOL* 1940 
EOLal 950 
EOL«19fiO 
EQL*1970 

£QL°1 980 
EQL«J990 
EOL®?000 
EqL*P010 
EQL**PO?n 
EOL°?030 
£QL*?040 
E(1L°?0So 
£OL*2060 
£OL®?070 
EQL*?0«0 
EQL»?CRO 
£Oi.°?l  oo 
EOL*PI10 
EQL«Pl?0 
EOL*?13o 
EQL«?140 
£QL&?1 50 
£QL°?1 SO 
cOL^PITO 
EQL*?1 80 


-RITE  ( ft »  9P4  5 

9^4  F3RMiT(jHot18xt2HNTf 12x,5hLN  NIf 8Xt9HDEL  LN 


EQLC?1 90 

NI » lOxt^^^/^T  t9X» *MS0/EOL«F20O 


1R. 12X»6H-Gn/RT,9X.5H-G/«T  )  EQL^RPIO 

DO  r26  j=1*NS  EQL*p2?0 

FVEGi  =  S(J).Ho(J)  £QL«??30 


FNFG2  =  FNFGl  EQL^FPAO 

:f<TUSE(j) .pO.O)  FNEG2=FNEG2-ENLN(J)-TH  £QLo2?50 

WRITE  (5.925)  SUB (J, 1 ) ,SU8 ( J,2) ,  EQL^PPftO 

1$'J5 ( J» 3)  »FN( j.nPT)  «E-NLN{  J)  tOELN(J)  »H»(J)  tS(  J)  * FNEGi*FNEG2  EQL°??7o 

9?5  FflR-iAT  ax.3A4.7E15, 6)  EOLe?280 


9?6  CONTINUE 

WRITE  (8.J10) 

110  FORkaT(IhO) 

apply  CORRECTIONS  TO  ESTIMATES 


EQL«??90 

EOL®?300 

EQL°p310 

EQL°?3?0 

E0L°?330 


ESLo?340 

HI  SU«  =  0.  EQL*?350 

ENNl  =  £NNL*AM80A«X(I0l)  E0L*?3S0 

f\'N  =  E  X  =  ( f.V.V'L )  EQL°2T70 

TK  =  ??LN  -  FN\'L  £0L*?380 

DO  113  J=1.NS  £QL*?390 
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IF  (IUSrtJJ)  113#112*114 

112  £NLN  ( J)  =£NLN  ( J)  ♦  AMRDA*DELN  < J> 

EMCJtNPT)  =  0. 

IF< (ENLN(j)-£NNL*STZE) .LE.0«>  60  TO  113 

r.M(J»NPT)  =  £XP(£NLN(J)) 

SUM  =  SUM*£N(J,NPT) 

30  TO  113 

1 • 4  £N(J»NPT)  =  £N ( J»NPT)  ♦  AM90A  *  DELN(J) 

113  CONTINUE 
SUMN  =  SUM 

IF  (TP)  60  TO  115 

i  -  T'_N=  T  |_M*  amsoa«olnt 

!  tt  =  exp(Tln) 

;  JSl  =  1 

1  CALL  CPhS 

1  ‘  115  IP  (LLMT(L) .NE.IE)  go  TO  il6 

c  CHECK  ON  REMOVING  IONS 

DO  1116  J  =  1 » NS 
IF  (A(L.J)  .EO.O.)  60  TO  U16 
IF  'EN(J.NPT) .GT.O.)  60  TO  116 
1116  CONTINUE 

DO  1118  J=1,NS 

IF ( A !L « j) .NE.O . )  IUSE<J)  *  -10000 
1118  CONTINUE 
L  =  L*  1 
IQl  =  101-1 
SO  TO  43 
C 

C  TEST  FOR  CONVERGENCE 
C 

H"6  IF  (ITnumr.EO.6)  GO  TO  13 
IF  UMRf>A.L7*l»>  GO  TO  43 
SUM  =  (£NN-SUMN)/ENN 
IF  (SUM.LT. 0.1  SUM  =  -SUM 
IF  (SUm.gT.0.5e-5)  GO  TO  43 
DO  1 30  J=1,NS 

IF  (IUS£(J).LT.o>  GO  TO  130 

AA=  DELN(J)/SUMN 

IF(A*' .LT.O.)  AA=-AA 

IF  (IUS£(J) .£0.0)  AA  =  AA*£N( J.NPT) 

129  IF ( A A * GT . 0 *5£— 5 *  GO  TO  43 

130  CONTINUE 
C 

C  CALCULATE  ENTROPY,  CHECK  ON  DELTA  S  FOR  SP  PR03LEMS 
C 

SSUm(NPT)  =0. 

DO  1 53  J= 1 »NS 

IF  ( NPT.EQ, 1 )  SSO  =  SSO  ♦  EN(J.1)*SCJ) 

SS  =  S(j) 

IF (IUSE{J) .£0.0)  SS=SS-ENLN(J)-TM 
SSUmUpT)  =  SSUM(NPT)^SS*EN{J»NPT) 

1«3  CONTINUE 

IF(.NOT.Sp.OR.nPT.FO.I)  go  TO  13 
SS  =  6SUM{NP7)  -SO 

IF (S5.LT. (-0.00005) .0R.SS.GT. 0.00005)  GO  TO  43 
TF(IGEf.ijG)  *iRlTE  (6,11 83)  SS 
11R3  FGRmAT(12k00ELTA  S/R  =»E15.6) 

13  C0NV5=  .TRUE. 


EOL*P40A 

£OL*?4jO 

E0L*?420 

EOL*2430 

EOL^P^AO 

EOL*?450 

EQL*?4An 

E0L»2470 

EOL«P480 

EQL0?49n 

Eol°pSoo 

EQL<*?510 

EOL°PS?n 

E0L*?54n 
EqL°?550 
EQL«?560 
E0L«p570 
E0Lo?580 
EOL^PSqO 
EQL*?S09 
EQL«?6lO 
EQL*?620 
EQL*?630 
E9  L*P6Af» 
EQL^PSSO 
EQL*?660 
EQL°P67n 
E0L*?6R0 
EOL°2690 

EOL*P700 

E0L*?7lr, 

EOL 

E0L<’?73f. 

E0L«?74r, 

E0L°?75'. 

^E0L°?760 

E0L«P77r. 

E0L°:>7fi-, 

EOL°279r* 

EOL«?80f 

EQL*?81o 

EQL°?G?- 

E0L«283r. 

£0L*284f, 

EQL*?85fi 

EQL°?P6n 

E0L°287n 

£0L®?8Rfi 

EQL«?S9rt 

EOL*?900 

E0L«?910 

E0L*?9?r, 

E0L«?93fi 

E0L®?9Ar, 

E0L«P95n 

cQL°?960 

E0L*?R7n 

E0L*298f. 

E0L*2990 


O  o  o  r>  n  r>  or*  o 
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IF ( IT  .LT.TLOW.nR.TT  .GT. THIGH) WRITE  <6,306)TT  .NpT  £qL«3000 

306  FO«MAT(i7HoThF  T£MPERATURe8El2.4»26H  IS  OUT  OF  RANGE  FOR  POINT > I5) £OL°V)l 0 
IF  ( iTNUMG.NE.O)  GO  TO  160  EGL^OPo 


WRITE 16.973)  TTN.NPT 


,EOL*303C 


973  F0RmaT{1hl*I2«69H  ITERATIONS  DIO  NOT  SaTISFY  CONVERGENCE  ReGUIREMEEOL*3040 


lNTS  FOR  The  point 
IF  {.NOT.HP.OR.NPT.NE, 
WRITE«6.874» 

TT  *  T(l> 

RETURN 


I5S 

I.OR.NC.EQ.O.OR.TT.GT.IOO.)  GO  TO  873 


160 


convergence  tests 

GO  TO 


are  Satisfied*  test  condensed  species* 

143 


144 

146 

147 

148 
151 
154 


156 


IF(nC#EQ.o> 

SIZ£F  =  0. 

INC  =  0 

00  1?0  J  =  l.NS 

I"  <IUS£(j) .£0.0  .OR.  IUS£(J) .EQ.' -10000}  GO  TO  170 
INC  s  INC  ♦  1 

IF { X DERUG)  WRITE (6*144) (SUS  ( J* I >  * Ial *3> -TEMPI I VC*I >  *TEMP(INC*2) * 
ITUSfU)  »£N(J»NpT) 

FORMAT  (1H0.3A4,2F1 0.3,3X,5HIUSE=,I4,E15.7) 

IF  (EN(J*NPT))  146*148*169 
IF  ( J*N£. jSOl.  .aNq*  J  .NE.JLIQ)  GO  To  147 
JSOL  =  0 
JLIO  =  0 
101  =  IOl 
EN(J*NPT) 

SO  TO  166 
KG  =  1 

IF{lUS£(j)#E:o.-iUSF(J*l))  GO  TO 
IF«J*£0.1.0R.IUSe(j).Ne.-iUS£Cj-1)j  qO  TO  153 
KG  =  -1 
JKG  =  J  ♦  KG 

IF  (EN(JKG»NPD  .LT.O.)  GO  TO  170 

TMEuT  =  TEMP(Ivc.l)  i 

Iv.P  =  INC  ♦  KG 

IF {TMtLT.E0.TEMP(IMp»2  ))  GO  TO  158 
TMELT  =  T£MPtINC*2) 

IF  (T-J.FLT.EQ.T£«P(IMPtl) )  GO  TO  157 
WRITE  (6.156) 

format  (50H03  PHASES  OF  A  CONDENSED  SPECIES  ARE  OUT  OF  ORDER 


•  1 
n« 


154 


JTH  SPECIES  A  solid  (En*0>»  (J4*G)TH  SPECIES  a  LIQUID  (EN  IS  ♦ 

157  IF(T7.GT. TMELT)  GO  TO  169 
(TP.ANn.TT.FQ.TKELT)  GO 


IF  (TP)  GO  TO  1165 
IF  {TT.lE.T.MELT-150.  ) 

JS>>l  *  J 
JLIO  =  JKG 
30  TO  159 


TO  169 
GQ  TO  H65 


JTH  SPECIES  a  LTOUIO(FN=o> ,  (J-*KG)TH  SPECIES  A  SOLID  (EN  IS  ♦) 

15o  IF  (TT.lT. TMELT)  GO  TO  169 

IF  i7?.ANr>.TT.rO*TMELT)  GO  TO  169 
IF  (TP)  GO  T0~1165 
IF  (TT.ge. TMELT* 154*)  GO  TO  1165 
JSOL  "  JKG 


eol^goso 
, EOL»3060 
’ EOL*307O 
EQL^IOkO 
EOL«309f) 
E0Ltt31  nr> 
EOL^TllO 
Eo|.#3l?n 
EQL*3l30 
£QL«3140 
EOL*31Sn 
E0L*3160 
EOL*3170 
EQL°31 80 
EGL«319o 
E0L°3?D0 
EOL«32l  f) 

!  E0L*3??f) 
£QL*3230 
£0L»3?40 
EQL«3250 
£QL«326o 
EOL*327o 
E0L*3230 
EQL«S20n 
EQL«33nn 
EOL°33li) 
E(3Lo3320 
EOL*333n 
E0L°3340 
E0L»335n 
EOL^T^ftO 
EoL*337o  '■ 
ECL*33R0 
EQLo3390 
£QL<»360f) 
EQL*34’ 0 
E0L°S4Pn 
£RL*9'470 
EQL*3440 
£OL«345o 
E0L*34  60 
E0L°3470 
EOL*34’8o 

EOL*-)49« 

EQL«35r»0 
E0L°35l 0 
EOL°3520 
EQLo3S3n 
EOL°3540 
E0Lo7550 
EQL*356fi 
EOL«357D 
EQL^lSPo 
E0L*3S90 


n  o  o  oo  o  o  r> 


JLTO  =  J 

1S9  TLN  =  A<_OG  (TMELT'l  ; 

TT  =  TMP'.T 

£N{  jKG.Nf-’T)  s  .5  «  EN(JK6,NPT) 

-N(jtNPT)  a  EN(JKG.NPT) 

30  TO  1 65  , 

WROm'g  phase  INCf-UnED  FOR  T  IuTERVaL*  SWITCH  EN 

1165  EMCJt'^PT)  a  EM  (.JKG,  NPT) 

IUSE^J)  =  “I USE » J) 

IUSe  <J*G1  =  -IUSe(J.<G) 

EM ( JKG4NPT) a  0. 

30  TO  40  '  ' 

153  IF  {TT.lT.TEmP(INc»1)  .aNO«TEMP (INc»1 > .NE.TLOWl  GO  TO  I69 
IF  (TT^GT. TEMPTING. 2) )  GO  TO  169 


SUM  =  0.  . 

00  167  I  s  l.L 

SUM  =  ,SUM  ♦  A(I»J>*X<I) 

167  CONTINUE 

OELF  =  HO(J)-S(U>-SUM 

IFdOtBUG)  WRITE  (6*  168) 'DEL  F«  SIZEF  : 

16S  FORMAT  (17H  Go-SUM (AlJ*PI)  =E15«7«1oX»18HPREVIDUS  delta  6 
IFtoELF.GE.SIZEF  .OR.  DELF.GE.C.)  GO  TO  I69  =  1 

'  SIZEF  =  DELF 
JOELr  =  J  • 

169  IF(INC.EQ.NC)  GO  TO  1160 

170  CONTINUE  ,  ; 

1160  IF  (SIZEF. EO.0,1  GO  TO  143 

J  =  joelf 

165  101  =  101  ♦  1 

166  TUSr^Jl  a  -  lUSE<jl 
40  CONVG.  =  .FALSE.  ’ 

IF(mPT.EQti)  SSo  =0* 

JS1  =  .  1  = 

Call  Cpms 

143  TN  =  NUMB 

T;r(,,\07. Shock!  .  WRlTE(6f77l)NFTt(X(IL)»IL*X»U«TN 

771  FORMAT  (I3.14F9.3) 

ITNUM6  =  ITN 
JS1  =  1  i 

IF (7?. AND, CONVG)  CALL  CPHS  , 

SO  TO  43 

calculate  equilibrium  properties 

I 

1171  D^V?7(np7)  =  -i,  * 

DLV7PCNPT)  a  1.  ; 

CPR(NPT)  a  CPSUM 
SO  TO  199 

171  SUM  =  0.  i 

DO  179  j  =  l.L 

SUM  a  :SUM  ♦  PR0W(J1*X(J) 

179  CONTINUE 

OlVPT{.\?7)  =  .pi*SHM/ENN*  X(IQi) 

1 R4  IFULIQ.EO.O)  GO  TO  199 
lUSE(ULIO)  a  -IUSE(JLIQ) 

HSUM«N?T>  a  MSUM<NPTl*EN(jLlOtNPT)»(Ho(JLlQ)-HO<jSOL> / 


EqL°3600 

EQL»l6lo 

FQL*36?0 

EQL«3630 

EQLtt3640 

E0L«36S0 

EQL»3660 

EQL*3670 

E0L*366ft 

EQL»3690 

EQLo3700 

E0L*37in 

EQL*37?0 

EQLo3730 

EQL*3740 

EOL*3750 

EOL«3760 

EQL«»377n 

EOLtt3760 

E0L«379n 

EOL«36on 

EQL°3R10 

EQL°3«?n 
E0L*3fl30 
*»E15*7>  EQL<13B4ri 
EQL°3850 
EQL*38fiO 

EQLft3970 

EQL»33«P 

EQL°3H9i) 

E0L"3900 

fcOL»3910 

EQL*39?n 

E0L*993n 

E0L«3940 

EOL®39f.O 

EOL°3q60 

EQL«397n 

EQL<‘39Ao 

E0L°399n 

EQL«4000 

£QL4>4010 

EOL°40?n 

EQL«403fl 

EQL°4040 

EOL*4050 

E0La4nf.n 

EOL®4070 

EQL*40R0 

EQL*4090 

E0L«4inn 

EQL"4l  1  n 

EQL°4l20 

EQL°4 1 30 

EQL°4l 60 

EQLa4l50 

EQL°4l 6f 

EQL°4l7f 

EQL°4l9f 

EQL*4l9< 
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*.  <5-5 
1*6 


200 


131  —  i C 1 * 1  . 

SAMMAS(vPT)  =  »1 ./nLVPT INPT> 

? *  Ju3;5pt)  =  -1 ./ tDLVPT (NPT) ♦ COLVTP (NPT) **2> ** NN/CP*  <NPT) ) 

TTTCNP7)  =  TT 
spPjNPT)  =  PP 
cp^5rlNPT)  =  CP?UM 
^SUu.iNPT)  =  HStJH(NPT)*TT 
•<M{*JPT)  =  l./FMN 
IP  j. NOT. I DEBUG)  RETURN 
a^AtlO  =i. 

IP(SP)  praTio=pp/p«1) 

aRITE (6.201)  NPT,PRATlOf 

uro  fWPT\ .riftMMiR  (NPT) 


PP , TT , HSUM ( NPT ) , SSUM { NPT) , WM (NPT , 


30  TO  1000 
PfHoR*  StT  TT=0 


EOL’*  4290 
EOL^iPlO 
Er,L*4??0 
ECL^^O 
EGt_e4240 
EOL'*425<j 
E0L"4?t.r, 
£01*4270 

eol^apso 

E0L*429r, 

E0L*4390 
E0Lu4~-'i  p 

,CPP(Np£OL«4320 

£0^*4330 

6f3X.*HEQL°4340 

6HDLVPTEQLct35r. 

EOL*4330 

EQL*43?n 

EQLC4380 

EOL*4390 

EOL*4400 


673  TT=f.» 

\iPT  =  NPT-1 
lOOO  RETURN 
END 


EQL*44',o 

EOL*44?n 

EQLO4430 

EQL*4440 


a 


SUBROUTINE  r.PHS  .  _ _ 

CALCULATES  THESHOoYNaMIc  properties  for  individual  SPECIE 

r0M.M0N/SP£CES/c0EFf2»7»150>  *S(150)  »eN(150*13)  *;E?>1LN  l  l^O)  ,h0  (150) 

1  ,OELN{ ISO) »A ns* Iso) »SUB ( 1S0*D> *IUSF (IdO) •TEHP(50»E5 

COMMON /Ml SC/FNn . SUMN, T T4So«ATOM(3»]01)  »LLMT (15}  ,-30  (IS)  , BO*3 {15,2} 

1  ,TM»TLOW«TMTO»YHIfiH»PP»CPSUM*OF»EQRAT»FPCT*R*RR»HSUq0«AC^2) *AM{2) 

2  *HPP(2)  «RhO(?)  »VmtN(2)  «VplS(21  »»IP(2)  »DaTa(22)  *NaMeU5*5) 

3  ,AnUM(}5,5) ,PECWT(15) ,ENTH<15) ,FAZ(15) ,RTEMP{ 15} ,F0X{15} »OENS( 15} 

4  ,RnOP»RMW ( IS) »TLN  _ 

COMmON/INDX/  InEBUO»CONVG,TP, HPtSP,HPSP,TPSP. MOLES, NP, NT, NPT,NLM 

1  ,nS,KMAT,IMAT,IOi ,i02.nomit,ip,newr.nsub,nsup,iTn.cpcvfR.cpcveo 

2  ,IONS,NC,NSERT.JSnL.JLIQ,KASE,NREAC.IC.JSl.VOL,SHOCK 

EQUIVALENCE  tJ.JSl;) 


<  =  1 

IF(TT.LE*TMI0)K  =  2 

<K  =  0 

C?SUM=o. 

90  IF (COEF (K,l ♦ J) «NE, n, ) GO  TO  97 
IF  (IUS£(J) .LT.O)  GO  TO  100 
«  =  K 
<  =  1 

97  J'  =  ( { { {COpF (K,5, J) /A.) #TT,  COpF (K,4, J) /3. > =TT*  COEF (K,3vU) /2* 

ll*  TT*-COEF{K,p,  Jl )  »TT*  COEF‘K,l.J)*TLN  +  COcFl<»7»J> 

H0(J)  =  ( ( ( icOEF<K*5,J)/5.i#TT*  COrF (<»4, J> /4.) *TT*  COEF tK*3* J> /3. 
1  )  *IT,  cOEF(K,2,J)/2.)«TT*  COEFtX.l.J)  ♦  COE'^K,S-> J) /TT 

CPSUM=  cPSUm*((((COEF(K«5,J)*TT>  COEF(K,4,J})*Ti*  cOEFtK»3,J) )*TT 
1  ♦  COEF (K,2, J) ) «TT*  CO£F(K,l , J) )«EN(J,NPTj 

IF  (K.^.EQ.o)  GO  TO  100 
K  =  K< 

<K  =  u 

100  IF<J»EQ.NS)  GO  TO  200 
J=J*1 
SO  TO  90 
200  RETURN 

end 


CPH»0000 
CPHooOlO 
cph»oo?o 
CPH°003n 
CPH«»nOto 
CPH^OOSO 
CPM°n060 
CPH®0070 
CPHoflOSO 
CPH'^iropo 
CPH»irioo 
CPH^TFl  1  0 
C PH *0120 
CPH»nl30 
CPH*PlA0 
CPH°nlsn 
CPH»0i4O 
CPH*0170 

CPH«mso 

CPH»nlR0 

CPH*n2on 

cph*o2io 

CPH*0220 
CPH°n23n 
CPH°T)24n 
,CPH»02SO 
CPH*n2sn 
,CPHfr027r 
CPH»02-.  . 
CPHttr.2=-0 
CPH»ti3^0 
CPHe 0310 
cph*o32o 
CPHO0330 
CPH*n34r, 
CPH&t)3S0 
CPH<*«3fiO 
CPH«n37o 
CPH*D3b0 


c 

c 


c 

r 


C 

C 

C 


c 

c 

c 


c 

c 

c 


SUBROUTINE  matrix 


double  precision  g.x 

LOGICAL  HP*SP«TP.-IOEBUii»COMVG#NEWA 
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Ma*>O000 

MaT«00\O 

MAT^nOgG 

MaT«C030 

MaT*o.HC 

MAT«005G 
MATon'f.0 
MAl*0070 
MAT<*oO»n 
MaT«oGRo 
MAT*r.lO!> 
v’AT*nlin 


COMMON/POIN'.  S/hSUM  (13). SSUM ( 1 3 > ,  CPR  < 13)  .DLVTP  (13), OLVPT (13) 

1  .GAMMAS (13)  »P (26)  »T (26)  »v(13)  «r-DP(13)  ,WM(13)  »S0NVEL(13)  «TTT(13) 

2.T0TN (13) 

CnMM0N/SPECES/c0EF(2»7»15n)  *S(i50)  c-E>*J  1?C»13)  <ENLN(150>  .H0<150> 

1  »OELN(150)  .A(15.\S0)  .SUO(150.3)  »Iu‘5E(  iSC)  .TEmR(50.2) 
COMMON/.MlSC/ENN,SUMN.TTtSo.ATOMJ3,Uil)  .LLMT(lS)  t30«lS)  ,BoP(15.2>  -  .  ,Iilw 

1  »TM.TL0W,TMTn«THlr,H.PP.CPSUM.OF.EQRAT»??cT.R.RR.HSU30.AC<E) »AM(2) MAT«ol?0 

2  »hpP(2) »RHO (p) «VMTN(2) ,VPLS{2) ,WP(2) ,0ATa<22) ,NAME(15.5)  MaT*o130 

3  .ANUM(l5t5)  .PECWT(i5)  »£NTH(i5).FA2(ih)^R,EMP(i5).FOX(is).OENS(l5)MAT*nUo 

4  , RhGP.RMW ( IS) ,TLN  MAT'OfilSO 

COMMON  /DOUBLE/  6(20.21).  X  (20)  MaT*nlf>n 

COMMON/ 1 ndX/  lnEBUG.CONVG.TP.HP.SP.HPSP.Ti  SP. MOLES.NP, NT. L'OT.NLM  MaT"o17o 

1  .nS.kmaT. IMaT. 101  * IQ2.N0MIT, TP.NeWR.NSU8.NLU5. ITn.cPCVfH,~PcV£0  MAT<»nlBO 

2  . IONStNC,NSERT. JSOL.JLIOjKASE. NREAC. IC.JSl* VOL. SHOCK  "  '  MaTo01R0 

MAT«n2nn 


EQUIVALENCE  (L.NLM) 


211 


11 


IQ2  =  101  ♦  1 
IQ3  =  1Q2  ♦  1 
KMAT  a  IQ3 

IF(.NOT.CONVG.AND.TP)  KMaT  *  IQ2 
IMAT  =  KMaT  -  1 

CLEAR  Matrix  STORAGES  TO  ZERO 

DO  211  1=1, IMAT 
DO  211  K=1«KMAT 
6(1.10=  0.000 
CONTINUE 
SSS  =  0. 

HSUM(NPT)  =  0. 

3ESIN  SET  UP  OF  ITERATION  MATRIX 
<K  =  L 

DO  6a  J=1.NS 
M=Hn ( J) *EN( J,NPT) 

IF  (JUSE(J))  6S.11. 70 

F  =  (no ( J) -S ( j) +ENLN ( J) ♦Tm) *EN  < J.NPT) 
SS  =  H.f 
TcRMl  -  H 

IF  (KMaT  .eQ.  102)  T£RMl  =  F 

DO  55  I  s  ],  L 


calculate  the  elements 


P { I »K> 
TO  55 


15 


Ir  (h ( I f J)  *20#  0*)  60 

TERm=  a (I.J)«EN{J»nPT) 

DD  ;i>  K=Tt  l 

3 ( I »K) =  G(I.K)  ♦  A(K,J)«TrRM 

conti  n'le 

3(i,-'*i)— G(I.T01)*TERM 
6(1,102) =6(1.102) *A (I,J)«TERMl 


maT«0210 

HaT«022O 

*AT*0230 

MaT^0240 

MaT-»o250 

MaT*o?60 

mat»oh7o 

MAT«n2B0 
MAT°o2Rn 
MaT«o300 
MaT«n3lO 
MaT°o3?0 
MaT*0330 
MaToo  3  Lli 

MaT*'0350 

maT^aS-O 

MAT*n37r 

MAl^O'iS.i 

MAT<-*03?0 

MAT&04f»0 

MaT*OA;:'- 

MAT»04?0 

MAT*o430 

MaT&0440 

MAT«n450 

MaT*o4SO 

MaT°0470 

MAT*>04Af> 

MAT*n49n 

“aT»0500 

MATonSlO 

MaT°a530 

MAT*n540 

MaT»a550 

MaT*0560 

MaT»0570 

MaT®05a0 

MaT*0590 
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ENlNiJ)-TM)*F 


C 

<*• 

c 


c 

c 

c 


tF  ; CuKi v 3  ,OR.TP>  fiO  TO  55 
3(I.I«3>«  fi(I.TQ3>*AtI*Jl*F 
'?  {>?:  3 ( 1 02 • I )  '  G (  ' 02 » I )  *  a(T*^>  -S 
cr  .'ONTINUE 

'  li-  (K'  j-  .FQ.  TO?)  GO  TO  64 
ipte^e-OR-HP)  GO  TO  59 
S{102*101>  =  p<! Q2.I01)  ♦ 

S{£02»I02)=5iI02*I02>*HO(J)  'S 

r-tI02»I03)  =  G5IQ2.IQ3)-»<SU) 

59  3(102*1021 ^G(IO2*IO2>*H0<J‘*H 
if  (CONVG)  go  TO  64 
S  (  i02*  103)  =S  (102*  1031  ♦HO(J)*fr 
f.2  5(l0l*I03)=G(  .Ol*I03)*F 
64  G(I01»I02)c3CI01 • 102) ♦TERMl 
GO  T0  65 

CONDENSED  SPiClES 

VO  =  kk  •»  1 

00  7S  I  =  1»L 

s  ^  G  *  X  •KMftT)  -  A<I*J)«ENCJ*NPT> 

75  CONTINUE 

5(<K*I02‘.  -■>  HOJJ) 

G  '.<K»NM?  T)  =  HO(J)  “  S(J) 
r*SUM(NPT)  s  HSUMNPT)*  H 
IFl.N0T.SP)  SO  TO  65 
SSS  =  SSS  *  S(j)rEN(J»NPT) 

s  ( 1 02  •  r£K )  =  scj: 

65  co^7 1 

SSS  '  SSS  *  G(I02.I01) 

>,S‘Jm(NFT)  =  HSUMfNPT)  ♦  G  (lOi ♦  102) 

•  6x101*101)  =  SUMN  -  ENN 

reflect  symmetric  portions  of  the  matrix 

’SYM  =  jQl 

TF(HP. or. CONVG) I5YM=IQ2 
DO  102  I=ltISYM 
DO  \02  J-I.ISYM 
3  ( J  •  I  *  =,3  ( T  »  J) 

102  CONTINUE 


c 

c 

c 


c 

c 

c 


COMPLETE  THE  RIGHT  HAND  SIOE 

IF (CONVG)  GO  TO  175 
DO  145  I=1»L 
Xfl)=sO(I)-G(I.lOl) 

G(I,KMAT)  =  G(I*KMAT>*xU> 

145  G°i5l^MAT)  =  r,(IOl,KMAT)*ENN-SOMN 

COMPLETE  ENERGY  ROW  AND  TEMPERATURE  COLUMN 

tc  (KHiT  .EO.  TQ2)  GO  TO  IBS 
:F  iSP)  ENERGY  =  So+ENN-SUm.N  -  s>s 
Tp  {_?)  FXERGY=HSU6o/TT  *  HSUM(NP)  1 
S(:o2*I03>=GCI02»I03)*  ENERGY 
175  S  (IQ2*  102)  =  GaQ2*I02)*CPS‘JH 


WAT°060ti 

MaT*0&10 

MaT«»06?0 

MaT*0630 

MaT°o640 

MaT*0650 

MaT*o660 

MaT»0670 

MaT*0690 

MaT«0690 

MAT°o70G 

MfiT*n710 

MaT»072O 

MAT*0730 

MaT«o7«0 

MAT«*n750 

MaT»0760 

MAT*o770 

MaT*0750 

MAT*079ft 

WAT*05no 

MAT«o3lO 

MaT«0620 

MaT»0330 

MaT®oB40 

MaT°0850 

MAT*oR60 

MaT*o870 

MaT*0R50 

MAT«fi690 

MAT*n9nn 

M^T^figlO 

MaTooR?!) 

MaT»093<) 

MaTo«940 

MaT*o95D 

MftTO0960 

MAT*0?70 

MaT«095-* 

MAT*nR96 

maT*iooo 

MaT*1010 
MaT*1G?0 
MAT*1030 
MaT°1040 
MAT01 050 
MAT®1,  060 
MAT*) 070 
MAT«1080 
MaT*i090 
MAT®1100 

maT»H10 

MAT*1120 
MaT*U30 
MAT»1 140 
MaT°1 150 
MAT«1160 
MaT*1170 
MaT«11?0 
MaT»H90 


1*5  «ETUrn 
END 


*AT«»l200 

MAT»l210 


nnnono  •  no  n  ooo  no  o  non 
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SUBROUTINE  mG&USO  6AU»0000 

gau*ooio 

SOLVE  ANY  LINEAR  SeT  OF  UP  To  20  EQUaTjonS  3aU«0020 

GaU®0030 

DOUBLE  PRECISION  G.X.COEFX (2o> «SUM,2  GaU*o04o 

GAU»A050 

COMMON/DOUBLE/fi(20*21) *X(20>  GAU*0Q60 

COMMON/lNoX/  If;EBUG*C0NVG.TP»HP»SP,HPSP»TPSP*M0LES»NO»NT»NPT*NLM  GaU*0070 

1  ,n3.  KMAT,  IMA  *.,TQl  .102, NQMIT,  IP, NEWR,NSUB,NSU»,iTN,CPCVFR,CPCVEQ  GaU»0OBO 

2  . IONS, NC»NSERT-J50L*JLIQ**-ASE»MREaC*IC»JSi»V0V» SHOCK  SaU*0090 


EQUIVALENCE  (IUSE.IMAT) 

DATA  BIGN0/1.E»38/ 

3EGIN  ELIMINATION  OF  NN',"H  VARIABLE 

IUSElci‘USF*l 
6  DO  45  NN=:,IUS£ 

IF  {NN-IUSEi  B.83.R 
83  IF(G<NN.NN>)31, 23.31 

SEARCH  FOR  MAXIMUM  COEFFICIENT  IN  EACH  ROW 

B  DO  18  I=NNtIUSE 
COEFX(I)  =  bignO 

if(g(I,nn) .eq.o.)  so  to  ia 

COEFX(I)  a  o. 

00  10  J=NN«IUSE1 
sum  a  G (I , J) 

IFtSUM.tT.O,)  SUM3"»SUM 
IFU.NE.NN)  go  TO  9 
2  a  SUM 
GO  TO  if) 

9  iFtSUM.GT.cOEFXCin  COEFXUlaSUM 

10  continue 

COEFX(I)  s  COEFXCD/Z 

18  CONTINUE 
TEMP  s  RlGNO 
1=0 

20  DO  22  J=NN» IUSa 

IF  (COEFX(J)-TEMP)  .87,22,22 
87  T£MP=COEFX(J) 

I=J 

22  CONTINUE 

IF(I>  28.23,28 

INDEX  I  LOCATES  EQUATION  TO  BE  USED  FOR  ELIMINATING  THE  NTH 

variable  from  the  remaining  equations 


GAU*0100 
GAU®nllft 
3AU*ni20 
GAU*0130 
GaU*0 1 40 
SaU“0I50 
SAU»0160 
GaU*0170 
GaU^OIBO 
SaU*0190 
3aU*0200 
3aU*02]0 
SaU*»0220 
SaU#0230 
SfeU*n240 
SaU*0250 
SaU*O2G0 
3AU*n270 
Ga!J*o2B0 
GaU*0290 
GaU*0300 
S&U*o3lO 
~U«0320 
t-.U*o330 
SaU*0340 
StU*0350 
GAU«n3SG 
SaU*0370 
GAU*0380 
SAU*o3<»0 

SaU*0400 

GaU»OMO 

GaU*0420 

GAU*>0430 

GAU*0440 

5aU*04S0 

5aU*0480 

GaU«0470 

SaU®O4B0 


GAU*0490 

INTERCHANGE  EQUATIONS  I  AND  NN  G&U*.35no 

SAU*0510 

28  IF(NN-i)  29,31.29  GAU»0520 

29  DO  30  J=NN,IUSEl  3aU*0530 

Z=S(I*J)  uAU*05A0 

S ( I «  U) =G  CNN, J)  GAU*0550 

S (NN. J) aZ  3AU*0580 

30  CONTINUE  GAU*0570 


GAU®05B0 

DIVIDE  NTh  ROW  BY  nTH  OIAGONaL  ELEMENT  AND  ELIMINATE  THE  NTH  SaU»0590 


nnn  o  o 


variable  from  the  remaining  equations 

31  <  s  NN  ♦  i 

DO  36  J  =  Kt  IUSE1 
IF (GtNN.NN).£Q.O.)  50  TO  23 

G  SNN» J)  -  G(NN*J)  /  G<NN.NN> 

3f>  CONTINUE 

IF{K*IUSEl)  88,45,88 
88  00  44  I  =  KtIUSE 
40  00  44  J  a  K.  IUSE1 

G(I,J>  e  fi{I , J)  -  G{I.NN>#G(NN,J) 

44  CONTINUE 

45  CONTINUE 

3ACKS0L7E  FOR  THE  VARIABLES 

<  a  I USE 

47  J  *  K  ♦  1 
X(K)  *  0.900 
S’JH  a  0.0 

IF<IUSe  -  J)  5i»48«*B 

48  00  50  I  *  J.IUaE 

SUM  *  SUM  ♦  G(K»I>«  X(I) 

50  continuf 

51  X(K,  a  G{K,IUSE1)  .  SUM 
1C  «  K  -  l 

IF  (1C)  47,151*47 
23  I USE  =  IUSE-i 
I5I  return 
ENO 


5aU»o600 

SaUcAM0 

GAU«r,620 

GAU®0f*3o 

6AU*0640 

GaU*0650 

GAU^OfefO 

GaU«067C 

GAU*06r.A 

GAU®0690 

GAU&0700 

GaU*0710 

GAU*0720 

GAU*0730 

GiJ*0740 

GAU*0750 

GaU«0760 

GAU«0770 

3aU«07B0 

SAU«0790 

SaU»0800 

SAU*n810 

GAU*n8?0 

SAU«»n830 

GaUooB40 

SAU»fi85r, 

3aU«0b60 

3aU«OB70 

GaU*0880 

GAu*0890 
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SUBROUTINE  VARFMT(V,*°T) 

DIMENSION  V (1 3) 

COMMQN/OUPT/FMT<30>  »FP<4>  *FT  (4)  ,FH(4l  «FSU)  *FMU)  •  FVU)  »FC(4) 

1  *fC<4)  »fG<4)  ,F8»FHT13«Fl*F2#F3fF4«F5*-U4>»FMTI9.FAl>FA2 

2  *FRl«FCl»FN(4) «FR(4J  »FA(4>  *FI (4) *FHT9X,FO 

00  45  IaJ.NPT 
<=  2*1*3 
Fm.TCK)  =  F4 

IF  {VII) .GE.IO.)  FMT{K)  a  F3 
IF  t V 1 1 ) .GE.ino.)  FMTOO  *  F2 
IF  (V(I) ,G£. 10000. )FMT{Kj  a  Fl 
IF  <V<I) .ge»ioooooo«)  fmt;k>  *  FO 
45  CONTINUE 

return 

END 


Va»*0000 

VaR*0010 

VftR*0020 

VtR«0030 

VaR*0040 

VftR*OOriO 

VaR*0060 

VaR*0070 

VaR«OORO 

VA«*0090 

var*oioo 

VaR*0110 

VaR*0120 

VAR®0130 

VAR*oUo 

VaR«0150 

VAR*fii60 

VaR*017{.> 


uo  o 


SUBROUTINE  OUT) 

double  PRECISION  6* X 
SEAL  MIXUO) 

LOSICAl  EQL»FKOZ  ,tp»h?,sp»h?sp»tpsp»moles 

dimension  NV { ) 3) »Z ( 10»3) .HEAD ( 15*  »VX<5) *YN(5) 

DIMENSION  SIE6ELO0)  « CONCKl  <  10«30> 

C0Mh0N/p0tnTS/hSUm(13) »SSUM(135  *CPR(13>  ,DLVTP(13) »0LVPT(l3) 

1  tfiaMMAS(l3) »P(2A> »T (26) ,V(13) ,PPP(13) »WM'13) *S0NVEL(l3i tTTTC 

2  «TOTn (13) 


ouT*oono 
out *0010 
OuT«002O 
OuT*003O 
OUT»O04O 
OuT*oOSo 
OUT*0060 
OUT*0070 
OuT*nORO 
OUT*o090 
ouT*nioo 
OuT*niio 
0UT*nl20 
0UT*0l30 


2  «TUIN(13)  OUT*nllO 

COHMON/SPECES/COEF(2.7*156i »S(l50>  »EN(150*13>  «ENLN(150>  .H0«150>  OUT*0120 

1  »0ELN(150) tA<l5»150)»SU3(l50»3) .IUSEJ1S0) , TEMP (50,2)  0uT*0l30 

COMMON^mISC/ENN,  SUMNtTT ,  Sq  *  ATOM  (3, 1 01 )  »LLMT  (IS)  *50(15)  ,80PU5,2)  OyT«nUo 

1  *TMtTL0W»TMlo,TriIfiH»PP*CPSUMt0F«£QRAT»F?cT»R»SR.HSU30»ACf2>  *AM(2> 0UT*0l50 

2  ,HPP(2) ,RhO(2),VMIN(2) tVPLS(2),WP(2) , DATA (22) ,NAME(15t5>  0uT*nl60 

3  ,ANUM(15t5) ,PECWT(15) «ENTH(is> »FAZ(15> .RTEMP(15> .FOX^S) »0ENS(15> OuT*ol7n 

4  »RhOP»RMW (15) » TLN  0UT*0l80 


2  ,HPP(2) »Rh0(2),VMIN(2) tVPLS(2),WP(2) , DATA (22) ,NAHE(15t5)  0uT*nl60 

3  ,ANUM(15t5) ,PECWT(15) «ENTH(is> »FAZ(15> .RTEMP(15> .FOX^S) »0ENS(15> OuT*ol7n 

4  »RhOP»RMW (15) » TLN  0UT*0l80 

COMMON  /OOUBLE/  G(20»21 )  ,  Xt20)  0uT*f.l90 

COMHON/lNoX/  IdEBUG»CONVS tTP*HP»SP,HPSP.T?SP, MOLES. NP,NT»NPT»NLM  OUT*0200 

1  ,nS,kmAT, IMAt. IQl *IQ2,N0MIt, IP. NEwR,NSuB,NSua* ItN, CPCvFR,CPCv£Q  0uT*021 0 

2  , IONS, NC.NSERT* JSOL.JLIQ,KASE.NREAC»IC*JSi*Vf>L. SHOCK  OUT*r>22o 

COmmON/PeRF/PcP  (26)  •VMOcJi3)  *SPIM(13)  .VAcl (13, *SUbaR(13>  >SUPAR(13)  0UT*o23o 

1  ,CPRF(i2),AEAT(13),CSTRtE&L,FROZ,SS0  0uT*o24O 

COMmON/o’JPT/FMT  (301  »FP  (4)  ,fT<4)  »FH(4)»FS(4l  .FM(4)  ,PV(4)  ,FD(a>  OUT*0?50 

1  ,FC(4) «FG (4) ,F8,FHt13*Fi,F2,F3,F4,F5,FL(4) ,FMTI9,FAl*FA2  001*0240 

2  *FRl.FCl»FN(4).FR(4l.FA(4>»FI(4).Fm9X.F0  0uT*o270 

common/?mew/ron. INOFA  OuT*02®0 


1  (Xi)  ,Ata:  (ij)  *L3IKtEbl.(f  OUI»0240 

COMmOn/oUPT/FMT (301 »FP (4) »FT (4) »FH(4)»FS(4l .FM(4KrV(4) ,FD(a>  OUT*0?50 

1  ,FC(4) «FG (4) ,F8,FHt13*Fi,F2,F3,F4,F5,FL(4) ,FWtI9,FA1,FA2  Dut*0260 

2  *FRl.FCl»FN(4).FR(4).FA{4>»FI(4).FMT9X.F0  0uT*o270 

common/cmew/ron.inofa  OuT*02«0 

COMMON/EQNEW/Ri (30,40) ,R6(30,4ft) ,EK1 (30,40) ,EK2(30.40) ,R0H(30,40) ,OuT«029o 

lCH2(30»40) .ATT (l3*4()) »F(4{)1 »PHI (40 ) .BCONj (30 *40* .BC0N2 (3o*4fl) ,BC0NOUT*n30o 
26(30.40)  OUT«0310 


EQUIVALENCE  (V,NV) , (Z.Hq) , (IB.FB) 

HEAQx(1H  ,2*4,5  (A2tF6,5f3X)t5  X,F7.5,Fl3.3,4X,Al ,Fi0.2,F9.4; 

DATA  HEAD/4HUH  .4H»2A4.2H.5,4H(A2,,4HF8.5  .4H,3X),2H,5  *2HX, 

1  *4hf7.5  »4h»F13  »4h*3, 4  »4hX.A1  ,4h.F10  »4M.2,r  ,4H9,4)/ 

OaTa  FUEL/4HFUEL/,OXIO/4HOXlD/, ANT/3nANT/,0X/iM0/, IZ/>H00/ 

1  . YN/2H* 1 ,  2H,2»  2H.3.  28.4.  2H.5  /.F75/4HF7.5/ 

2  *  «YX/3H,57,3H,44t3H,3l,3H,i8t2Ht5  /,F 73/4HF7.3/ 

Da7a(SieGeL(I) .I=;.30)/4Kc{S) »4H  «4H  *4800  »4H  »4H 

inrn5  s.li  .  AUU  Au  .  au  1  Ut.  >  •  1  m 


1HC02  »4H 
2  .48  »4H 

34«  »4h 


»4HH  ,4H 
.4HN20  ,4H 


.4HN  »4H 
.4H0  *4H 


IF(KASe.ne.o)  WRITE  (6.3)  KASE 

3  FORMAT  (gn  CASE  NO.  »I5) 

IF{. NOT. MOLES)  WRITE (6,5) 

5  FORMAT  (77X,4$hWT  FRACTION  ENTHALPY  STATE  TEMP 

1  lOx.lftHCKEMICAL  FORMULA, 51X,2IH(SEE  NOTE)  CAL/W 

2  4X,4hG/CC  ) 

IF(mOLFS)  WRITf(6,6) 

6  FORMAT  (79X,5HM0LES,7X,  33«ENTHALPY  STATE  TEMP 

1  10X.16HCHEMIC4L  FORMULA, 66X,7HCAL/M0L5l0X,13HD£G  X 
DO  15  N=!,NREAC 
IF(F0X(N) .NE,OX)GO  TO  10 
HOI  =  OXIo 
HOH  =  ANT 


EMP  DENSITY/ 
AL/MOL,lOX»5HOEG 


DENSITY/ 
6/CC  ) 


OUT«0310 

OuT*o3?0 

0UT*n330 

OUT*0340 

1  OuT*o350 

0UT*0360 

OuT«o37o 
OuT*03R0 
OUT*o39o 
out* 04 00 
0uT*04l0 
,40uT*(i42O 

4HNOOuT«f)430 

2  ,OUT*044(5 

0uT*0450 
OuT#o460 
0UT*P470 
OUT*04BO 
OUT*0490 
OuT*0500 
G  X,3uT*o5lO 
OuT*0520 
0uT*o530 
OuT*fl540 
0uT*0550 
OuT*05fio 
OuT*fi570 
ouT«oseo 
OyT*o590 


o  Ci  n  on  ono  ono  non 
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SO  TO  11 

10  HOI  =  FUEL 
H02  =  FR 

11  00  ]3  J=1 ,5 

IF (NAM£ (N, j) ,EQ» IZ. OR* NaM£ (N»j).£Q.Ig)  GO  TO  14 
13  CONTINUE 
J=6 

\4  J=J-1 

HEA0(3)=YN(J) 

HEAQ(7)=YX<J> 

HEAD (91  =  F75 

IF(PECWTtN)  -,GF.10.)  HEAD (9)  =F73 

WRITE  l6«HEA0)H0l»H02» (NAME (N« JJ) »ANUM (N»JJ) » JJ=1* J) *PECwT (N) 
IN),  FAZ(N) ,RTEMP(N) .OENSCN) 

15  CONTINUE 

FPC  =  100. /(I. ♦OF) 

WRITE (6,20)  OF  tFPC,EQRAT,RHOP 
20  FORMAT  (1hO*15X,  4hO/F=»  f9*4.3X,13HPERCENT  FU£L=*F8,4»4X» 
i  inequivalence  ratios  ,f7«4,4X,9hdensity*,F8*4//> 

AGV  =  9,80668 

RETURN 
EnTrY  0UT2 

pressure 

FMT (4i s  FMT (6) 

CALL  VARFMT  (PPP  , NPT) 

WRITE  (6, FMT) (FP(I> ,1*1,4) * (PPPtJi »J=1»NPT> 

TEMPERATURE 

DO  6S  1=1, NPT 
MV ( I ) =  TTT(I>*.5 
65  CONTINUE 

FMT(4)s  FMT13 
FMT (5) s  FMTI9 

WRITE  (6* FMT) (fT<I)»I=1»4>»<NV(J;,J»i,NPT> 

ENTHALPY 

DO  75  1=1, NPT 
V(I)  =  HSUM(I)  *  R 
75  CONTINUE 
FMT (5) =  Fe 
FMT (7) =  F 1 

WRITE  (6»FMT) <FH(I> ,1=1*4) , (VC J) »J»1»NPT) 

ENTROPY 

FMT(7)=F4 
DO  78  1  =  1 ,NPT 
V { I >  =  SSUMCI)  *  R 
78  CONTINUE 

write  <n»FMT> (FS<I) ,1=1,4) > ( V ( J) , J»1 ,NPT) 

WRITE  16,80) 

30  FORMAT  {  ih  ) 

molecular  weight 


0UT*0610 
0UT*06?0 
0uT*0630 
OuT*o6ao 
0uT*0650 
0UT«0660 
0uT«O670 
0UT*0630 
0jT*0690 
OuT*0700 
DyT*07l0 
•ENTH(0UT«0720 
OuT*o730 
OuT*oT40 
0(jT*0  750 
0UT«o750 
OUT*0770 
OUT*0780 
OuT*0790 
Out*oboo 
ouT«nRio 
0uT«0820 
0UT*o330 
0UT*0840 
0UT*0850 
0UT*o8&0 
0UT*0870 
0ut*08B0 
OuT«oB90 
QUT*0900 
QUT*0910 
OllT»f  920 
QUT»0930 
OUT*0940 
Ol,T*o950 
auT*0960 
3UT«0970 

OuT*o98o 

DjT*O990 
OuT°)000 
OUT»10I0 
0UT*1 020 
DuT«1030 
OUT*) 040 
0UT*1 050 
0uT*10fe0 
OuT*i 070 
0UT«1 030 
0UT*1 090 
OuT*nno 
out*i  no 
0u7*l 1 20 
0UT*U30 
OuT«1140 
0UT*1 1 50 
OuT*1160 
out* n 70 
OuT*l 130 
0UT«1190 
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C 

FHT  (7)  r.  F3 

*RIT£  (6»FHT)  (fM{I>»I*1»4)»(WH<J)  » J*l»NPT) 

C 

C  <OLV/OLP)T 
C 

FmT (7) ap5 

IF(£QL>  #rITE(6*FMT) (FV(I),Ialt4).(DLVPT{J),J«i#NPT) 

C  (OLV/OLT)P 
C 


C 

C 

C 


C 

C 

C 

C 

C 

C 


C 


FmT(7>*  f 4 

IF(£3L)  WriT£{6»FMT) (FD(I) »I*1»4) • (DLVTP(J)  > J«1 t\PT) 

HEAT  CAPACITY 

DO  85  I=l',NPT 
V(I)  =  CPR(I)  *  R 
85  CONTINUE 

WRlTE(6f FMT)  {FC(I)  ,J*1,NPT) 

GAMMA (S) 


WRITE <6* FMT) £FG(I) «I«1*4) • (GAMMAS Cj>  »J*l»NPT) 
SONIC  VELOCITY 


95 


FMT(7)=  f1 
DO  95  I  *  ltNPT 

continu1’  *  SQRT(RR*GAHMAS(I)*TTT(I)/WM(I>> 


WRITE (&»FMT) (FL £ I> ♦ 1*1 t4>  t (SONVEL ( J) ♦ J*i »NPT> 
return  * 


c 

c 

c 


308 

309 


ENTRY  OUT3 

IF(.NOT-EQL)  GO  TO  331 
DO  309  I  *  1#NPT 
DATA  (I)  a  0. 

DO  308  k  »  1,N5 
DATA ( I  *  =  DATA (I)  ♦  EN(K,I) 
COnTI-NUE 
CONTINUE 


MOLE  FRACTIONS  -  EQUILIBRIUM 


310 


315 


316 

320 

330 

331 


WRITE  (6,80) 

FmT  (7)=  E5 
WRITE (6,31 0) 

FQPmaT { )5h0M0LE  FRACTIONS  //> 

DO  330  k=1iNS 

DO  315  I=i,NPT 

V(l)  -  EN(k*I>  /  DATA  (1) 

Continue 
do  316  1=1, npt 

if  (Vtj) ,6£» (5»E”6) )  GO  TO  320 

CONTINUE 

GO  TO  33fl 

T-Mn-'FHT>  SU8  <K*1> »SUR(K»2) ,SUg(K»3) ,fg, C  V ( J ) *I*1*NPT) 
WRITE (6*335) 


DU?*1200 
OUT*l2lo 
0UT*]220 
OUT*) 230 
OUT*) 240 
OUT*125o 
OUT*1260 
OUT*) 270 
0uT*)280 

0uT*1290 
OUT*13uO 
out*) 3) 0 
OUT*1320 
OUT*) 330 
OUT*) 340 
DUT*1350 
OUT*) 360 
out*) 370 
OUT*l 380 
0UT*1390 
0UT*1400 

0UT*1 41 0 

OUT*1420 
OUT*143o 
0UT*1 440 
0UT*)450 
0uT»)460 
OuT*l 470 

0UT*i490 

out*h9o 

0UT*1500 
0UT*)510 
0UT*1520 
0UT*l530 
OUT*) 540 
0UT«1550 
Out*) 56o 
OuT*l 570 

0UT*1580 
0uT*)590 
out*) 65 n 
out*) 6) o 
Out* -*620 
OUT*i 630 
OuT*l 640 
0uT*)650 
out* 1660 
0UT*)670 

°UT*)6fin 

0uT*1690 

0uT*)700 

0UT*)7)0 

OUT<*1720 

0UT*)730 

OuT*)740 

0uT«1750 

0uT*i760 

0uT*i770 

0UT*)780 

OuT*)79o 


335  F0aMAT(n8H0AO0lTl0NAL  PRODUCTS  WHICH  W£R£  CONSIDERED  BUT  WHOSE  M00uT*i900 
1LE  FRACTIONS  Were  LESS  Than  .000005  FOR  ALL  ASSIGNED  CONDITIONS//) OUT»iRio 


LINp=  0 
SIN  =  1 

IF(fQL)  nn=mpt 
DO  350  K=1«NS 
DO  340  1=1. NN 

IF  ((EN{K,I>/OaTA(I)).GE.<5*E-6))  GO  TO  343 
340  CONTINUE 

LI-\I£=  LTNf*1 

Z(LINF  .)  =  SUP (K» 1 1 
Z(LINE»2)=  SUB  (K»2) 

Z (LINE. 3) s  SUB (K.3) 

343  IF  (<LlNE.NE.lo)  .AND.  K.NE.NS)  GO  TO  350 
IF  (LlNE.EO.O)  GO  TO  1000 

WRITE (6.345)  (Z (LN» l ) *Z(LN.2) »Z(LN,3) »LN*1 .LINE) 
345  PDRHAT  (10UX.3A4)) 

UiNE=  0 
350  CONTINUE 

7F(. NOT. MOLES)  WRITE (6»360) 


0UT«lh20 
OuT«l 830 
OuT«i 840 
OuT*1 850 
OuT*i8ao 
OUT«1870 
OUT*! sno 
0uT*l890 
0uT»i900 
0UT*1910 
0uT*l920 
QUT*i 930 
0uT»l940 
0uT*i950 
OuT«1960 
OuT*1970 
0ijT«1980 
OuT*1990 


360  FORMAT (78H0N0TE.  WEIGHT  FRACTION  OF  FUEL  IN  TOTAL  FUELS  AND  OF  OXI0uT*?00C 
-  ...  - -  -  .  OnT*?fnr 


2Dant  in  total  oxidants  ) 


1000  CONTINUE  OUT*?0?0 

DO  3000  I  cl.lG  OuT*?030 

II  t-  3»I  -  2  0UT*?040 

DO  2000  K  =1»NS  0UT»?050 

IF{SlEGEL{II).NE.SU8(K.l))  GO  TO  2000  OUT*2060 

IF(5lEGEL(II*l).NE.SUe(K*2)>  GO  TO  2000  Qu?»2070 

IF(SIEGEL(II*2) .NE.SU3(K*3)>  GO  TO  2005  OuT*2080 

DO  1503  J  =l»N?T  OUT*?090 

1500  C0NCKI(1»J)  *  eN(K.J)/DaTa(J>  OuT*2100 

GO  TO  3000  0‘JT*2110 

2000  CONTINUE  QUT*?12o 

3000  CONTINUE  OUT^PIZD 

C»*«»  0UT®2140 

NOTE.*. FOR  more  Than  NPT=6*tHESE  PRINT  STATEMENTS  MUST  BE  MODIFIEOOUT»?150 

c*».«  OUT®?160 

DO  5000  K=1.10  0UT»?170 

II  =  3*K  -  ?  0UT*?180 

WRITE (6.4000)  SIEgEL (II) tSl£GEL(II*l) *SlEeEL(II*2) * (CONCKlCKtJ) *J=0UT*?I90 
li,MPT)  0uT*?200 

4000  P0RHATnx,3A4,2X*6(El5.8»iX) )  0'jT°c2lO 


5000  CONTINUE 

write (s.oooo)  (WMc.n »j  =i,npt) 

6000  FO*maT(11h  MOLEC.  WT..4X»6(E15.8«1X)  ) 

WRITE (6.7000)  (TTT(J) .Jal.NPJ) 

7600  "0RMAT<9H  TE«P. (K) «6X.6(El5.8tlX) 

WRITE (6. 6000)  (PFP(J)»J=1.NPT> 

8000  FORMAT { 12H  PRESS. ( ATM) ,3Xt6(El5.8»lX) ) 
kRITE (6.9000)  RON 

9000  FORMAT (14H  FUEL  AIR  RAT..ix»E15.8) 

00  9600  N  sl.NREAC 

WRITE  (6,9500)  (ANUM(NtJJ)  ,.<Jsl.S)  »£NTH  (N)  .RTEMB(N) 

9500  FORMAT (1X.7E15.8) 

9600  CONTINUE 

LALL  RATES (CONCKI » VM.TTT.PPP* ANUM»ENTH*RTEMP»NPT*NREAC) 
9999  RETURN 
END 


0UT°?220 

0UT»?230 

0UT*?240 

0UT®2?50 

0UT«?260 

0UT»2270 

0UT*?2B0 

0UT*2290 

0UT<*a300 

0UT»?310 

0UT*?320 

OuT«2330 

0uT*234C 

0UT*?3S0 

OUT»2360 

0UT*2370 


c**** 

c***» 

c#*** 


^AU0MjJ<I0rATES<CONCKI*WM*TTT*PPP*AW,JM*EKTH*RTE^^^*^^  ^  CUT.0000 

1?RTEMP(15)C0NCKI <10*30) *TTT{13J  «pPP(13) ,**(13) ,ANUM<25,5> ,ENTH(lSj .RaT*S?2o 

lON^CM?iIS!!3o^o?!A(M^EN(6ME(6rC30*40>,RS<3l>*40,*RATEKt6*30,40>*C^^^^ 

COHmON/SNeW/RON*  INfJFA  rAT*0050 

COMmON/hJcK/MIx  8AT*.*»0gO 

test  for  write  control 


c®*** 

c*»«» 

C**i* 

C***» 

c**** 

c***» 


1000 

c**»* 

c»»** 

c***» 


00  200p  I  ei,6 

»4?EK(I,J,IST) 

l ) 

2000  CONTINUE 


C***» 

C***t 


8AT*oi30 

raT*0140 

RAT*oi5f) 

rAT*o16o 
raT*o1 7n 
RAT*olRO 
*AT»nl$n 
raT»0200 
rAT*o2!0 
rAT*02?0 
rAT*o23o 
rAT*o'24o 
raT*025o 
rAT*o260 
RAT*n270 
rAT»o2Ro 
raT*0290 
rAT*o300 
rAT*„310 
RAT*0320 
rAT«0330 
»AT*o340 
»AT*0350 

RAT*0380 


1ST  s  INOFA 
IPRjNT  -  Q 

If<mJX(IST*1).EC.O.O>  IPRINT  a  i 
S£T  PRESSURE  LOOP 
DO  8000  J  *  1,NPT 

calculate  concentrations 

|C0N1(J,IST)  s  CONCKI(ltJ) 

3C0n2(J«IST)  =  C0ncKI{2,Jj 
3C0N6fj.I$T)  =  C0NCKH6.J) 

30  1000  t  .  i.io 

CONTIN(Je*J*ISTJ  *  <C0NcKICX.4>*ppp|jn/«82.D57*TTTCJI) 
compute  Rate  constants 


C®«*» 

c««*« 

C*«"0« 


2500 


2750 

c**«» 


CALCutATE  FCRWflRp  REACTION  CONSTANTS 

^(j.isr) =  <R  4  ri5  i  3  J .  I  IT;  -cS™cS  cS:^:  f  Hi  :co32|«  ??;  ^ j  J  i}  > 

°  1  *  (fi*.TEK(6»J*IST>  *CONMCM(gt  J*JSTJ7.cO'iHCMI7'j»TST) ) 


CALCOLaTc.  Kl  »K?»RhO*KS»  and  phi 


l»QE*35 


IP(tt2{1,-tr-*f«*n'2**NO*R3(‘i,IST,*£O<*0’0>  EK1  ( J»ISTj  . 
rm •£0»0.3»AND.R3(J#IST>.eO.O«C)  GO  TO  2500 
?  4J  S>;  WCJ,lST)/lW|jfTST>*Rj*j#iST,,,  2S0° 

I.  ‘  AJJ.IST)  •E0»{!«0«AND.R5{JtT57)  ,£■<>*«)  PKOE  t  T«T( 

-K2{J»TS-fT,’fi5'?,0‘ATD*^<J,IS7>#E<3*0‘0>  SO  10*2750  °  l’C£*35 
§£!  J  Mr  3  {R6Cj,IST)/{R4lJ,7ST34R5(j,|ST,>,  *'5° 

OH { J*  1ST)  3  <PPP  jj)*ws4{J)  )/f82.05'»TTT{Jj ) 


RAT*o390 

RAT*n40O 

*aT*omo 

«AT*042c 

RaT*0A3o 

RaT*0*40 

RAT*nA5o 

PAT*0460 

R*T#oi7o 

raT»04aO 

RAT»0A90 

«AT*o500 

RAT*05l0 

RaT*((52o 

»rAT*05?ri 

^AT*o54o 

rAT»oS5o 

rAT»oS80 

RAT^OcyO 

»AT*o580 

R*T«o59o 


mote... fuel  card  is  physically  before  oxidant  card  in  input, oxygenRaT'-^oo 
C****  Is  SECOND  SPECIE  SPECIFIED  IN  OXIQaNT  AlRtFUEL  IS  SPECIFIED  C«A»  RaT'^oI'5 
M-3  Rat»0620 

c**»*  .  RAT<*ne.Rn 

EXS  =  ( (12.*ANUM{l,l)*l.*ANUMa.2)>*ANUH{2*2n/{28.99*(ANUMa»l>*(RAl<>,5ft40 

1 ANUM { 1 ,2) /4, ) ) ) 1  RAT*n650 

3Hl (1ST)  a  RON/EKS  ,  RaT*0660 

F (1ST)  a  PhI<TST>*fKS/(1,*(PhI(IST)*EKS)>  RftT*0670 

C**««  RAT«06B0 

C «•**  CALCULATE  CONCENTRATION  OF  CH2  RAT»n690 

C**«*  RAT°0700 

RaTwTS:  =  ANUM  { i  » 1)  /ANUM  (1,2)  ’  RaT*0710 

Ch2 ( J* 1ST)  =  ( ( (RATWTS/(l,*l2.*RATwTS))*(WMCJ)»RON/{RON+l.)n-CONCRAT*o72n 


Coooo 


:lKI(2*U)-C0NCKI{3»J)-C0NCKia,J)) 

C**»* 

stope  values  of  t 

c*o<»» 

.  ATT  (J*  1ST)  =  TJT(J) 

8000  CONTINUE 
C#««# 

c«o«*  PRINT  and  PUNCH  OUTPUT 
£*««« 


SAT«(>730 

RAT«0740 

RaT«0750 

RAT*o760 

RAT*o770 

RaT«07rO 

RAT«0790 

RaT*o800 

RaT*H810 

RAT«0820 

RAT*n830 

RaT«OB40 

RAT*nesn 

RaT^OBSO 

RaT«o870 


IF(IPRINT.EQ.O)  GO  TO  9999  RaT«o820 

DO  950c  J  =  l.NPT  !  RAT»n830 

00  9000  I  =1 , 1ST  RaT«OS40 

IF(I.NE.I)  60  TO  8500  RAT*n850 

WRITEUtRlOC)  ANUm  ( I  » 1 )  »ANUM(1,Z)  ,RT£MP{2)  »PPP(J)  ,  icode»eks  Rat^obso 

*‘RITE  (7,8100)  ;ANUM(l,))  ,ANuM«1,2)  ,RT£MP{2)  ,PPP(  J)  ,  IC0DE,EKS  RaT«o870 

8100  FORMAT J)X,7HFUEL=  C»El5e8,lHH.El5.B*l8H  INLET  AIR  T.OOs  »El5»8/lXRAT«n8B0 

I»l3nPRESS. (aTM)=  tEl5.8,7HlCODE=  »I2»13hPHI  STOICH.*  .E15.8)  RaT*0B90 

8500  WRITE (6,8200)  F(I) ,PHI (I) ,R0H(J,I) ,ATT(J,I) ,BC0N6(J,I) ,8C0N2(J,I) ,RAT*o9oo 
13C0n1(J,I)  tCH2iJ»I.tRl  (Jtl)  tR6(J.tI)  tEKlCJtl)  tE<2(JtI>  RaT»q910 

8200  FORMAT ux,6E12,S/lXt6El2. 5)  RaT»0920 

WRITE (7,8250)  F;I) ,PHI(I) ,ROH<J,I) ,ATT(J,t) ,BC3N6(JtI) fBC0N2(J#I) ,RaT«o930 
l3C0Ni(j,I)tCH2(JtI) tRl(J.I)*R6(Jtn  tEKl(Jtl) tE<2UtI>  RaT«o940 

S2S0  F0RMAT(6£i2.5/6E12.5)  .  RaT*0950 

9000  CONTINUE;  RAT«09fi0 

9500  CONTINUE  RaT*0970 

9999  RETURN  .  Rat°09B0 

END  RaT*Q990 


o  o  o  n  n  o  o  nn 


SUBROUTINE  HCALC 


88 


CALCULAlt  enthalpy  for  propellant  USING  COEFFICIENTS 

LOGICAL  MOLES 
DIMENSION  NUM(15»5> 

COMMON/SPFCES/rOEP (2,7,150) ♦  !> <  150 )  ,CN  { 150 ,13)  , ENLN ( 150 )  ,H0  ( 150 ) 

1  , OELN (150) , a (15,150) »SUB ( 1&0. 3) ♦ IUSE 1150) , TEM» ( 50 ,2) 
COMMON/MISC/FNN,SUMN,TT,S6,ATOM(3,101) *LLMT(15) ,B0(15),B0P(15*2) 

1  , TM»TLOW,TMTn,THIOH,PP,CPSUM,OE,eQRfeT,FPcT»R,RR,HSUgo*AC(2> »AM<2> 

2  ,HPP<2) *RHO (?) ,VhIN(2) ,VPLS<2) ,Wp(2) ,daTa(22> , NAME (15,5) 

3  , ANUM(iS#5) ,PECWT(15>*ENTH(15),FAz«15} , PTEMP (15) » FOX (15) , DENS (15) 

4  »RhOP,RMW(15) «TLN 

COMMON/iNdX/  IdE8U6»CONV6»TP,hPiSP,HPSP,TPSP,M0LES»NP,NT.NPT,NLM 

1  ,nS,kmaT,IMAT,IQ1,IQ2,N0MIT,IP,NEWR,NSUB,NSUP,ITN,CPCVFR,CPCVE0 

2  • IONS,nC,NSERT» JSOLtJLIQ.KASE, NRE AC* IC»JSl t VOL* SHOCK 

EQUIVALENCE  (ANUM,NUM) , (L,NLM) , «J, jSl) 

DATA  Ag/1hG/«IZEPO/2HOO/*OX/1hC/*BLX/IH  / 

IS  TT  in  range 

IF{TT.LT.(TLOW-10o«)«OR.TT.GT,(THIGH*1000.))GO  TO  75 
HPP ( 1 ) *0# 

HPPj^cO. 

AC<1}=0. 

AC<2)=0. 

DO  900  N=i#NRFAC 
<=2 

IF(fOX(n) .eQ.OX)K31 
?C»|T=PECWT(N) 

IF  ;mOLES) PC«T=?CWT«RHW (N> 

IF<NAMf(N,5),FQ.IZER0)G0  TO  5 
AC ( l )  =  0, 

AC<2>  «  0. 

GO  TO  500 
5  J  =  NUM(N,5> 

IF  ( J.NF, o )  GC  TO  90 
DO  10  J=1,L  . 

DATA ( J) =0. 
io  CONTINUE 
DO  40  1=1 ,4 

IF (ANUM(NtI) ,£0.0.) GO  TO  50 
DO  20  J=1»L 

IF<LLMT(J) ,EQ,NAMEtNtI) )  GO  TO  30 
20  CONTINUE 

30  DATa(J)=ANUM(N,I) 

AO  CONTINJE 
50  15*0 

DO  7 0  J=1,NS 

IFdUSE(J)  ,EO.o)GO  TO  55 
IS  =  IS* 1 

IF (FAZ(n) .EO.AG)Go  to  70 

IF(TT. 67. TEMP(IS»?) .AND, TemP(IS*2) ,NE. THIGH)  30  TO  70 
IF(TT.LT.TEMP(TS»i) .AND.TemP(IS*1) .NE.TLOW)  GO  TO  70 
GO  TO  5ft 

55  IF(FAZ(n).NE.AG»ANO.FaZ(N).NE.BLK)  GZ  TO  70 

56  DO  60  1=1, L 


nCA"nO00 

HCA*0010 
HCAA002O 
HCA*»0030 
HCA»n040 
HCA«0050 
HCA»0060 
HCA«0070 
HCA*00sO 
HCA«0090 
> MCA°0l 00 

HCA°nllO 

)  HCAoolPfl 
HCA°0l30 
HCAu0l40 

HCA»nl50 

HCA*ol60 

HCA*0l7i) 

HCA*0lR0 

HCA°0l90 

HCa<*0200 

HCA«n21 0 
HCA«o220 

HCA*n230 

HCA«o24o 

HCA®02S0 

HCA*n260 

HCA*n270 

KCA*0230 

HCA«0?9O 

HCA*0300 

HcA°n3in 

«CA<»ft320 

MCA*o330 

HcAs0340 

HCA«»o350 

HCA*o360 

HCA*n370 

HC4»n3S0 

HCA*o39o 

HcA°0400 

HCA*0410 

HeA°f)420 

HCA*0430 

HCA«o440 

HCA*»n450 

HCA*0460 

HCA«0470 

HCAc04pO 

HCA»0490 
HCA*o5no 
hca*051 n 
Hc**0520 
HCA°o530 
CA*o54o 
HCA°n550 
HCA*0560 
HCA*0370 
HCA°0580 
HCA<*0590 


89 


IrUCIt  J)  ,NE.OaTA(T)  )  GO  TO  7o 
60  CONTINUE 

'■'JM(N*5)  a  J 
GO  TO  <5o 
70  CONTINUE 
SO  TO  Bn 
<}0  NSS  *  NS 
NS  =  J 

DELN(J)=  EN(J.NPT) 

EN(J*NPT>  =  1* 

call  cphs 

EN(J.NPT)  a  OELN(J) 

•NS  a  NSS 

IF  (HO(J) .GT.-.01  »AND*  Ho(J) .LT..01)  HO ( J)  «  0. 

RTEMPlN)  a  TT 

fmTh<N)  =  HO ( J) *R*TT 

AC(<>  =AC(K)  •»CPSUM*PCWT/RHW  (N) 

500  HPPtK)=HPp(K) ♦eNTh(N)*PCWT/RMW(N> 

9C0  CONTINUE 

I Ft. NOT. MOLES)  GO  TO  951 
DO  050  K=i»2 

IF(wPlK) *£Q.0.)GO  TO  950 
HPP (K) sHPP (K) /VP (K) 

AC(K>aAC(K)/WP{K) 

950  CONTINUE 

951  HSUaO  =  (OF*HPPtl)  ♦  HPP(2))/(0F*1.) 

GO  TO  1000 

75  kIRITl  (6.76) 

76  format (5ohoReactant  temperature  out  of  range  of=  thermo  data  > 

BO  «RITtt6»85)  N  _  _ 

B5  FORMAT(iHo.l2.34H  TH  REACTANT  IS  NOT  IN  THERMO  DATA  > 

1000  RETURN 
END 


HCA*n600 

HCA*0610 
HCA*0620 
HCA*o630 
K:A*0640 
HCA*0fc5O 
HCA*0660 
HCA*0670 
HCA*06B0 
HCA»n690 
HCA«0700 
HCA*0710 
HCA*0720 
HCA«0730 
MCA* n 7 40 
HCA*0750 
HCA»0760 
HCAco77o 
HCA*07B0 
HCA*o790 
HCA*OSOO 

hca^obio 

HCA*0920 

HcA*0830 

HCA*0840 

HCA*o850 

HCA«0860 

HCAP0870 

«CA*oB30 

HCA*oS90 

HCA«o9()0 

HCA<*0910 

HCA*0920 


90 


SUBROUTINE  HOLIER 
COMmON/POjnTS/hSUH (13) ,SSuM(13) »CPR(13) ,DLVTP{13) .OLVPT (.13) 


MOL#0000 

MOL*0010 

HOL*00?0 

Ht)L*0030 

M0L#0040 

H0L»0050 

H0L#0060 

H0L*0070 


1  .34MHASC13) .?{ 26)  »T (26)  »V(13>  «PPPtl3>  »WH(13>  »50s:VEL{13)  tTTT U3) 

2»TQTN(13) 

C0MH0N/SP£CES/C0cF{2»7tl56>  *S{150) .£N(15G,13) , £NLN{150) .H0I150) 

1  *0ELN{i5p) » AClF*l90> »SUBCl5o*35 *IUSE(150) tTEMP<50*2) 
COMMON/mISC/FNN«SUmN»TT»S6»ATOm(3.101)  »LLMT(15)  .flO  Cl*»)  »BOP  C15»2) 

1  #TM,TLOH.THin,THI3HtPP,CPSUMtOF,EQRAT,FPCT»R.RR,HSUBO.ACC2).AH{2)HOL*0080 

?  #HPP<2) «RHO(?) ,VMIN(2> ♦VPlS(2) ,WP(2) .0aTa(22)  .NaHE(15»5>  MOL*0O90 

3  .asv!UM(1S,5>  ,pEC*TU5>  .£NTHtl5!  .FaK15)  tRTEMP(15>  *F0X(15>  .OENS(1S)H0L*0100 

4  .RhOP.RMW 115) »TLN  HOL«Olin 

rOMMON/iNnX/  lo£BUGtCONVG.TP»HP»SP*HPSP*TPSP»MDL£S,NP.NT.NPT»NLM  M0L#0l20 

1  *NS«KMAT*IMAT*I01»l02«N0MlTtlP»NEHR*NSUB*NSUPf lT*l*cPCvFRtCPCV£Q  MOL*0l30 

2  ,IONS,Nr.,NSERT,JSOL,JLIQ,KASE,NREAC,IC*JSl,VOUiSHOCK  MOL*nl40 

DO  91  IT  *  1»?6 


0.)  60  TO  95 


C 

C 

C 


c 

c 

c 


IF  (TClT).EQ. 
ST  =  IT 
91  CONTINUE 

SET  ASSIGNED  P 


95  DO  q02  IP  *  l.NP 
pp  =  P(IP) 

SET  ASSIGNED  T 

DO  p02  iT=ltNT 
TT  =  T(IT) 

CALL  EQLBRM 

IF(TT.NE«0.)  GO  TO  800 
IF(NPT.EQ.O)  GO  TO  1000 
800  K  ~  0 

ifhp.eq.np.ano.it.eq.nt.oR.tt.eo.o.) 
K  a  N?T 

IFtNPT.NE.13>  GO  TO  870 
WRITE  (6.5) 


GO  TO  8S0 


H0L*0l50 
MOL* " 160 
HOL*0170 
M3L*0190 
»0L*0l90 
MQL*0200 
MOL#02ln 
MOL*0220 
H0L*0230 
«OL*0240 
HGL*0250 
MOL*o26(t 
«0L*0270 
MOL* 0230 
M0L°0250 
HOL*0300 
H0L»0310 
MOL°03?0 
HOL*0330 
H0L*0340 
HOL*0350 

H0L*0360 


860  WPTTF  (6.5)  H0t-«i3ou 

5  FORMAT (iHf ,4! xt43HTH£RM0DYNAHlC  EQUILIBRIUM  PROPERTIES  AT  ASSIGNEDMOL*0370 
1  ./53X.28H  TEMPERATURES  AND  PRESSURES  ///  )  H0L*0380 


CALL  OuTl 
WRITE  { 6,863) 

863  FORMAT  (25hOTkeRHOOYNAmIC  PROPERTIES//) 
CALL  0UT2 
CALL  OUT3 

865  IF(K.EO.O)  60  TO  1000 
WRITE (6.868) 

868  FORMAT  ClHi.) 

NPl  =  0 

870  NPT  s  NPT  .  1 


C 

c 

c 


save  compositions  for  estimates  of  next  point 


330 

902 

1000 


DO  860  I  = 

En(I»npT)  > 

CONTINUE 

CONTINUE 

RETURN 

END 


1  .NS 
En(I.K) 


MOL*03gO 
M0L«0*00 
HOL*0*10 
MOL«0420 
M0L*0A30 
M0L*0A4C 
M0L«0450 
HOL*0A60 
MOL*047O 
M0L®n430 
M0L*0A90 
MOL*0500 
MQL*0510 
MOL*C520 
M0L®0530 
HOL*0540 
M0L*0550 
MOL»0560 
MQL*0570 


nnn  non 


SUBROUTINE  C**qSTN 


51 


COMmON/PO  I  NT  S/hSUh  ( 1 3l  »SSUH<13l  *CPR<i3>  *DLVTP{i3>  *DLVPT(i3) 

1  •!?aKHAsn3>  »P/ 26)  ?T  (26)  «V(13)  ,PPP(13>  »WMil3)  .SONVeL  *  13)  ,TTT(13) 

2tTCTN«13) 

COMmON/SPFCES/COEF(2, 7*150)  *S(150)  *EN(150*13)  .ENLNC150)  .40(150) 

1  ,OELN<i5ft),4(l5*180>*SU3(l5o»3>  •IUSEU50)*TEHP«S0*2} 
COMhON/«isc/ENN*SUMN.7T«SO,ATOH(3*101) *LLHT(15) «a0(15)«B0P(15.2) 

1  *TM.lLOW.TMIO.THIGHfPP,CPSUHtOF.EQRAT,FPCT.R,JlR.HSU3QtAC(2).AH(2)CMB»OOBO 

2  *H?P(2)  «RH0 (?)  *VmTN(2)  .VPLS(2)  .*P(2>  *DATA(22)  *NAHEU5»5)  Cm3*o09g 

3  *ANUM(15,5) *PEC«T(15) *ENTH(15) *FaZ(15) *RTEHP(15) .F0X(15) *DENS(15>CMS#C100 

4  *RhOP,«MW(15) *TLN  CHB*0ll0 

COMMON/ i ndX/  IOEBUG,CONVG.TP,HP.SP,HPSP,TPSP,MOLES*NP*NT.NPT.NLM  CMB«0l20 

1  *NS,KM4TtIMAT,I0l.l02fN0MlT,lP,NEWR.NSU8*NSUP*lTN,CPCVFR,CPCVEQ  CM8*r,l30 


CMS*0000 
CMB°001 0 
CM8°«0?0 
CMB*G030 
CMB®0040 
CmB«0050 
CHB*n06f) 

CM8*0070 


800 


860 

6 


863 


865 


870 


880 

902 

1000 


»  . IONS, NC.NSERT.JSOL.J'  10. KASE.NREaC.IC* JS1. VOL* SHOCK 

CM3«t)l40 

CM3*0l50 

SET  ASSIGNED  P 

CMB«0i60 

Cp3»0170 

TT  *  3800. 

CM3*f)l80 

DO  o02  tp  «  i,Np 

CM3°0l90 

PP  a  P(IP) 

Cmb*o2oo 

CALL  EQL8RM 

CM3*o2l 0 

T(NPT)  =  TT 

CM3«n220 

IF(TT.NE.0.)  GO  TO  800 

CMB*0230 

IF(nPT.?0.o)  so  to  1000 

CMB*n240 

K=0 

CM3*0250 

IF(Ip.EO.NP.OR,TT.EQ.O.)  GO  TO  860 

CM8*oH60 

<  =  NPT 

CM3*0270 

IF(NPT.NE,13)  GO  TO  87C 

Cm3*0H30 

WRITE  (6.6) 

ChB*O290 

FORMAT  (lHl,42Xt48HTHE0RETICAL  THERHODYNAHIC  CDH3USTI0N  PROPERTIESCMB*o300 

///) 

CM8»0310 

CALL  OUT1 

CMB*0320 

kRITE  (6,863) 

Cm3*o330 

format  (eshothermodynamjc  properties//) 

Ch3*0340 

CALL  0UT2 

CM8»o35n 

CALL  0UI3 

CM3*0360 

IF(K.EQ.O)  60  TO  1000 

CM3®0370 

\PT  =  0 

CM3°0330 

NPT  «  NPT  ♦  1 

Cm3*0390 

CMB*0400 

CMB’OMO 

,V£  COMPOSITIONS  FOR  ESTIMATES  OF  N£XT  POINT 

CM3*0420 

do  seo  1  *  i*ns 

CM3*o43o 

£N(3*NPT)  •  £N(I*K) 

CMB*0<»40 

CONTINUE 

CMB»0450 

CONTINUE 

CM8*0460 

RETURN 

CM3*0^70 

END 

CH3»0480 

O  U 
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C 

c 


c 

c 


c 


c 


SUBROUTINE  deton 

CHAPMAN- JOUGUET  DETONATIONS 

L03ICAL  HP«S®«TP*lnEBUS»NfriiR» IONS » MOLES *FR0Z*£3L*PSI A* RKT 
LOGICAL  CPCVFO.  CPCVFRf  CALCH 

DIMENSION  GM ( i 3) *Cp<13) *Hj (13) »PUB(13) *TDB(13) »GMl ()3> *RRH0(13) 
C0MM0N/P0inT3/hSUM(13) .SSUM{13},CPR(13).0LVTP(13) ,DLVPT (13) 


D£T*0000 

DET*0010 

D£T®002& 

DET*o030 

DET*C04n 

DET*OC5f» 

DET*oOfiO 

DEr*0070 

DET*nOBf) 

DET*0090 

det*oioo 

D£T*OllO 

DET*0120 

DET*ol30 

OET*flUO 


1  *3aHM»s ( !3) ,P(P&) .T(26) *V(13) *PPP(13) *S0NV£L(l3) »TTT(13) 

2  «T0TNil3) 

COMMO*\'/SPECES/COEF(2.7,150)  *S(l50)  ,EN(150.13)  »ENLNtl50)  .H0(l50> 
i  .0ELNn5fl)tA(15,i50),SUB(l50«3)  »IUSE(150>  tTErtP(50*2) 
COMhON/mISC/ENN«SUMN*TT»S6»ATOh (3*101) *LLHT (15) *30(15) *B0P(15»2) 

1  »Tm»TlOW,TMID,THIGH,PP,CP5Um,OF*EORaT  *F?CT*R. RR,HSU30*AC (2) • AM{2) D£T«ol50 

2  ,MPP( 2) *RHO (?) *VMlN(2i »VPLS(2) »*P(2) *DATA(22) *NAH£(15*5)  PET*0l60 

3  »AN'-*MU5*5)  *P£CWT(15)  *ENTM(15)  *FAZ(15)  *RTEMP(15)  »F0X(15)  *DENS{l5)D£T*ni70 

4  ,RH0P,RMW(15) .TLN  D£T*olS0 

COMmON/jnoX/  IoE8UG»CONVG'-TP«HP*SP»HPSP»TPSP*HOLES*NP*NT*NPT*NLH  DET*0190 

1  ,N5.KMAT.IMAT.IOl*IQ2*N0mT*IP.NEWR,NSUB»NSU:>.lTN,CPCVFR*SPCvEQ  OET**0200 

2  ,  IONS. NC*Ki£RT*JSOi.*JLlQ*XASE*NREAC*  1C*  JSl*  VOL1*  SHOCK  D£T°fl2lQ 

C0M«0N/PERF/PCP(26) *VMOc(i3) *SPIH(13)*VaC1(13)»SUbaR(13) *SUPaR<13> D£T*o220 


1  ,CpRF ( l 3> .AEAT (13) ,CSTR,EOLtFQOz*SSo 
COMmON/OUPT/FMT(30>  »FP  (4)  *FT  {4)  »FH  (4)  *FS(4)  *FM(4)  *£^41  *ED(4> 

1  *fC{4) *[tq{4) «f8,phT13»f1 *F2*p3tF4»F5*FL(4) *fMTi9»fA1 »?A2 

2  tFRlfFCl,FN(4) ,FR(4),FA(4)tFI(4),FRT9XtF0 

EQUIVALENCES, DATA)  ,  (GK,S?lH)  .  (H1.VAC1)  *  (PU8.SUBAR)  »  (TUB.SUPAR) 
£QUlVAL£Nr.E(GMi*AEAT)  »  (PCP<1*>  *RRHO) 


DATA  FTi/4HTl,D/, 

1  *  FCP)/4HCP) «/• 

2  *  FUq/AHDET  /» 

3  ,  FM&/4HMACH/, 


FPl/4HPl,A/f 
FGl/AHAj  /» 
FMK/4HH/M1/* 
FKB/4H  NO./, 


FH1/4HH1,C/, 

FPP/4HP/P1/* 

FRA/4HRH0//* 

IZERO/2HQ0/ 


FM)/4HMi,H/ 

FTT/4HT/T1/ 

FR3/AH9H01/ 


D(C)=  A11«A22-A?1*A*2 
XX(Y>=  (Bl«A22-B2*Jl2)/D(C) 
YY(Z)=  (82*All-8l«A21)/D(C) 

NT  =  1 


DET*n230 
OET*o240 
D£T*0?5o 
0£T>Oc  6!) 
D£T*0270 
DET*0280 
DET*n290 
Ds-T«0300 
OETo031o 
0£T»n320 
D£T«n330 
DET»o34fi 
OET«0350 
D£T*o360 
DET*n370 
OET*03s0 
0ET<»r,390 
D£T°n4no 


HSUaO  =  HSURO*R 
CALCH  .FALSE. 

TT  =  0. 

IF(T<1).EQ.0.)  T(1)=RTEMP(1) 

DO  2  N  =  1,NR£aC 

IF (NA«E (N«5) ,EO. IZeRO)  CALCh  =  .TRUE. 

2  CONTINUE 

DO  3  IT  =  1.26 
IF  (T(IT> .EO.o.)  GO  TO  7 
NT  =  IT 

3  CONTINUE 

7  IF  ( AM ( j ) . N£. n . 0  .AND.  AM ( ?) *N£ *0 * 0 )  GO  TO4 
A Ml  =  AM'?) 

IF  (AMf?) .EQ.O.OJAVl  =  AM ( 1 ) 

50  i  0  9 

4  AMl  =  (OF-1 ,)«aM(2)*aM(1)/(AM(1)  *0F*AM(2)> 

9  *RlTi  (6*11'. 

11  FORMAT (33H1DET0NATI0N  VELOCITY  CALCULATIONS) 
00  903  IT=1»nT 


DET*0410 

DeT«o4?o 

D£T*o430 

QrT*n440 

OET*o450 

D£T«o46n 

D£T*0470 

D£T»o4Ro 

0£t*nt9n 

DET*«300 

D£T»n5lO 

OET*05?O 

D£T*f)530 

D£Tco540 

0£T*o55C 

D£T«0560 

DET*0570 

OET*o5RO 

0ET»0590 
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Tl=  T  l  IT) 

7T  =*  T1 

TF  {-•'JOT.CALCH)  GO  TO  15 
CALL  «CALC 
CALL  OUT1 

1*5  CPI  =  (OF«aC(1)  ♦  aC(2))/(0F*1.) 

DO  002  IP=1*NP 
p;=  PilP) 

Hl(NPT)  *  HSURO 
TU3(NPT)sTl 
pU3(NPT)=P1 
cpcnPT)  =  cpi*» 

ITRa  0 
TT=  38oo. 

??1=  15. 

PP=  PPi*Pj 

WSU50  =  «i(NPT)/R  ♦  .75oTl«PPl/AHl 
TP  s  .FALSE. 
hp=  .True. 

CALL  tOLBPM 
HSJ80  =  HI (NPT) 

hp=  .False. 

IF(T7.£0.o.)  go  To  100Q 
gam=  Gammas (MPT) 

TT1=  TT/Tl 
11=  0 

TEH=TTl-.75*PPi/ (CPR (NPT) *AK1 ) 

AMM=ifMtMPT}/AMi 
WRITE <6* 190) TT 

lqO  FORMAT lanoT  EST.=.F8.2/11X«*HP/P1»17X*4hT/T1) 

*RITE(6.2o3)  II.PP1.TT1 
C 

200  00  202  11=1*4 
AL?A=akm/TTi 

PP1=  ( 1 .  *r,AH)  •  ( 1  .♦  ( I  .«4.*gaK*ALFa/  < 1  .♦Ga«)  **2)  •*  .5)  /  (2.*Ga*«*aLFA> 

PK=PP1«ALFA 

TTl=  Tem*.5*PPi'*Gam*  (RK*Rk»1.)  ✓  (A«i*CFR  (MPT)  «RO 
WRITE (6*203)  II.PP1.TT1 
203  FORMAT  {15* 2E2C.8) 

202  CONTINUE 
TP=  .TRuE. 

TT=  Tl*TTl 
RR1  =  PP1*AHH/TT1 
C 

205  !TR=  iTR*l 
pp=  Pi*P?l 
CALL  E0L3RM 

IF  (NPT.EO.O)  GO  TO  1000 
IF  (TT.EQ.O.)  SO  TO  860 
Gam=  Gammas (NPT) 

C  IF(C?CVFR)6AM=  CPRF(MPT)/(CPRF(NPT)-’1./WM(NPT}) 

c  if (cpcveo)gam=  -gammas (npt) •olvpt(nft) 

A-mm=  (NPT)  /AmI 
RR\  =  P?i*amm/TT1 

All=  l./PPl  ♦  gAM«RP1*DLVPT(NPT) 

A) 2=  Gam«RPi«OLvTP (NPT ) 

a2I=  .s«GAM*(RSl**P-l.-DLyPT (NPT)*(l.*RRl#«2) ) ♦DLVTP(NPT)-I. 
A22s-»5«Gak*0LvTP (NPT ) » (RR1**2»1 « ) «UM (NPT) *CPR (NPT) 

31  =  l*/PPl-l.*GA«*(RRl-l») 

32=  *« (N?T) * (MSUM (NPT) -Hi (MPT) /R) /TT-.5*5AH» (RRl*RRl-l .) 


DET*0600 

DET«n61o 

DET«0620 

0ET*0630 

OET^t.Aao 

DET»ft650 

OET*0660 

DET*067'' 

0ET*06r0 

DET*ft69o 

DET*0700 

DET*D7in 

DET*o7?o 

OET*o730 

DET®074Q 

0ET*n750 

DET*n7nO 

0ETo0770 

DET*i)7R0 

0ET*n790 

OET*OPOO 

0ET*0310 

DET*n«20 

DET*0830 

OET«r,840 

DET*o850 

DET«0860 

OET*o370 

OET°oGro 

DET*O890 

D£T*0900 

0£T»n9l0 

DET«n920 

DET*o930 

D£T*094r, 

DET*o950 
DET*;)96n 
DET*0970 
DET*o9RO 
0ET»n990 
DcT*1000 
DET*1010 
OET*lO?o 
0ET«1G30 
OET*1040 
DJT«1050 
£>ET»1060 
0ET°) 070 
DET^IORO 
9ET»1090 

oet*i  mo 
DEi*um 

DET«ll20 

DET®11D?) 

0eT*UA0 

OET6ll50 

DET*imn 

0ET*1170 

OET»U80 

0eT*U90 


non  o  o  o 


Xi  =  Xx CY) 

X2  =  YY(Z) 

*LAM=  1. 

T £M  =  XI 

IFtTEH.LT.O.)  T£M  *  -T£M 
IF(x2.GT.TEM)  TEH=X2 
IF  (-X?.6T.TEM>  TEM  =  -X2 
IF  ITEM, 6T. 0.4)  ALAM=,4/TEM 
PP1  =  PPl*EXP{Xi*AL4M5 
TT1=  TTl*FXP(X2*ALAM> 

TT  *  Tl»TTl 

US  =  {RR»GAH*TT/*H{NPT)>*i,5 
U0=  RRl«JC 
WRITE <6,10)  ITS 

10  FORMAT  j2iH0  ITERATION  NUM8ER=I2  ) 

WRITE t6«3g)  ppi*TTl«RRl*X|»X2*US 

30  FORMAT (6X»4hP/P1*10X*1h—  E20e8/6X»4HT/Tl*10X#lH* 
101«6Xtl«=  E20.fl/6X,llH0EL  L.N  P/P1.3X,lH*£fcfl«8/SX 
2»lM=E20.8/#iX.2HUS*i2X.lH»E20.8) 

convergence  test 

lF<lTR.LE.!0  .aND»  T£H.gT.0«5£-04)  60  TO  205 

RRrlO<NPT)=RRl 

If  (cP»NPT).£Q.O*>  go  TO  40 
SMltNPT)  s  CP(NPT)  /(CP(NPT)-R/AM1j 
VmOC1NPT)  «  UO/(RR»GMl (NPT)*Tl/AMl)**.S 
GO  TO  41 

*0  GMljNPT)  s  0. 

V«Oc{NPT)  30. 

GO  TO  150 


17H0  DERIVATIVE  OF* 13X 
/9X.2H8Y  J 


derivatives 

41  WRITc<6.55> 

55  FORMAT  { 

1.16X.2HU0, 

31=  l«/P?i»GAM»RRi 
32=  GAh*Dr1«*2 
Xi  s  Xx (Yj 
X2  *  Yy{Z) 

AA=  .5*(1.-0LVPT(NPT)) 

38=  -«5*DLVTPtNPT3 
DU0=  Uq*  t  AA*X1  ♦8B*X2°1  •) 

Xi=  Xl-l.o 

*RITE<6«8i)Xi.X2tDUD 

81  FORMAT C6X.13HLNPI  aT  Tl»Hl *6XtlH*»3El7.8  ) 
31=  GAm*RR1 

32=  -Ui «RRl-WH (N'T) *CP <NPT> / (R»TTl ) 

XI  =  XX (Y) 
x?  =  YY(Z) 

DUD=  UD»(AA*Xl*rj8*X241*, 

X2=  X2-1. 

WRITE(6.84)XI,)2.DU0 

34  FORMAT (6X,16HL»jT1  aT  PlthItPl#3X»lHa3El7»8> 
31=  0. 

32=  -*M{NPT)/CR*TT) 

XI  =  aX(Y)*1000. 

X2  =  YY{Z)*1006. 

DU0=  UD4(AA*X1*8B*X2> 


3k 

DET*1200 

0£T*1210 

0ET*i??0 

0ET*1230 

DeT*1240 

0ET«l25O 

DET*i260 

DET*1270 

DET*i28o 
DET*i?ro 
DETW1300 
061*1310 
0ET*1 320 
D”T*1 330 
D£T*]340 
D£T°i350 

E20.8/6X.EhRHO/RhdfT*136O 
LN  T/Ti,3XDlT*i37o 
DET*i380 
DET*l39G 
DeT«1400 
0£T*i4lo 
D£T*142C 
DET*1430 
0eT*I440 
DET«i450 
DET»i46o 
DrT*l4?o 
DET*i48o 

OE'T*i  490 

0ET*l50O 

DET*1510 

DET*1520 

DET»1530 

DET*l540 

•4KLN  P*16X.4HLN  TDeT*1S50 
DET*i560 
DET*i570 
DET*»l5lO 
DET»l530 
DET*\600 
0-”T*l6lO 
0ET*i6?0 

DET*1 4 30 
OET*l640 
OET*i650 
DET*l660 
DET«i670 

DET»i6«0 

0ET*1G90 
0ET*l700 
0ET*i710 
DET*1720 
0ET*l73o 
D£T*1740 
0£T*1 750 
D£T#l 760 
0£T*1 770 
OET*l780 
3E7*1790 


qc 

«R1TE{6,£S)  xl  *x2»0iJD 

P5  FORMAT  <6X*20“t!]  AT  Ti»P]«Mi  33El?eS> 

C 

iso  w  =  o 

If  ^  ?«A^n*IT«cO*Nj  «OR«T7 . g  *  3  (>0  TO  £50 

K  =  NPT 

IF  (NPT  .a’E.13)  60  TO  870 

C 

“  OUT-’UT 

C 

840  WRITE  (6*53 

=  F03MA!{jHi,42X,46H0£T0NAT50N  PROPERTIES  Of  AN  IDEAL  REACTING  GAS 
CALL  OUT1 
WRITE  l6»4fij 

46  FORMA” i i bh  UNSUNNED  GAS//} 

?HT{4)=rHT13 
F xT (5) =FS 
?JlT  {75  — F4 

*FITE<6.FMT)FPi»FPC2>*F8*FB» (PUg( J» »J*l*NPTi 
FmT{7}=F2 

*PIYE<6«FMT)FT}«FT{2)  »FB»F3*  {TUfiS J3  »J=1*NPT> 

FRITH  t6«FHT) FNi: *FHt2)  tF8»F3«  iHl  U)  »  J=1»NPT) 

DO  S6  1=1, NPT 
VJ I)=AM} 

SONVEL  { | }  a  ?RR*GMl  (I)*TUB{n/AMl)*®,5 

«56  CONTINUE 
FhT  J  73 =F3 

WRITER. FmT3  FMl.F«(~) »FM{3) »FB* iV(J>  *J=1»NPT) 

FMT(7}=F4 

*RITE<,WHT>FCP1*FC(2>  *FC(3>  *F Ct4)  ,  {£?  U>  * J*1.NP7J 
/RlTEi6,FMT3FG{l).FGl»FB*F3*  <6'Ml  U)  *J=I»NPT) 

FMTl7}=Fl 

WRITE t6»FMT) (Ft ( I J  » 1=1 *4) . {SONVEL  < J> wJ*l »NPT} 

KRIT£lf.,5R) 

58  "OR'-iAT1iihoBURnED  GAS//) 

FMT(4)=FM7i6) 

CALL  0U72 
WRITE Cf>,68) 

68  -ORmaT  IppHoOF.TOf-'ATlON  PARAMETERS  //) 

FMT(7}=F3 
DO  70  1=1, NPT 
y{j5=  P?R<I)/PU8(I) 

RCPiI)=rTT{I)/TUB<T) 

SONVEL { r  3  =SONVFL ( 1 3  *SRHO ( 1 3 
70  CONTINUE 

<RlTE(6»F*sT}FPP,F8,FB»F8t  {V{J}  ,J=1,NPT) 

»’RlTE(6.FMT)FTT*FB»FEfF8*  (PCP(J3 «J=1.NPT) 

DO  73  1=1, NPT 
V{  I)  =•*«{!) /AMI 
73  CONTINUE 
FMT {7) =F4 

sRITc (6» FHT) FMM,FR,FB»F3t (V{J) ,J=1,NPT) 

WRITE '6»FMT3FRA»FRR*FB»F8t (RRHO(J) » J=1»NPT) 
*RITE<6.FmT)FKa»FNB»FB»F3» (VMOClJ) tJ=l»N?T3 
pmT ;73=F ] 

WRITE  <6*FKT1  FUD*FL(2>  *FL(3>  *FLU)  «  (SONVELCJ3  *Jsi»NPT> 

EOL=*TRiiE, 

CALL  0U73 

S65  IFU.EC-.03  JO  TO  1000 

»RItE<6*068) 


DEI  ®l  ftijO 
DET*i*3ti) 
OeTuJR?J: 
DET*li»30 
0£T«} **49 
DET®1«50 
0ET*196o 

0eT°18?0 
DET*13S0 
D£T«i89<j 
DpT®l 900 
)DET®1910 
DET®}92n 
0£T®1930 
DE~«i 940 

OcTvl 950 

DET*1360 
DE7*1970 
D£T*I9R0 
D£TC 1 990 
DET*?.*,on 
Q£T*?C 10 
DET»p020 

n=T®?03rt 

det*?0-o 

DETopOSO 

r;£T«2060 

DeT*R070 

oe  r*2flso 
OeT*?gqo 

DET*?lon 

DET®2Un 

OET®pi2o 

oet^piyo 

0ETo?l4r» 

DET*?..5i3 

OET^plftn 

DETc?i70 
DET®?} Ao 

DET°?1oj 
DET*??r.f. 
DET®E<.' 3  A 
DET*2i?-3 
DeT*??;»o 
DET®2245 
DET*P250 
0£T®?26o 

DET"2270 
OET*22Bo 
9£T*2r 90 
DET»2300 
0ET»?310 
0£T«2320 
DeT*?330 
DET*?340 
D£T*2350 
DET®?360 
DET®2370 
0£T*?3flC 
0ET*2390 


n  r>  o 


96 


860  F(lS^TiiHl) 

9ET*P*0e 

*.•»»  •-  o 

OET*2*io 

070  MPT  «  NPT  ♦  1 

OET«P>?e 

0£t«*?43o 

0eT*?443 

0ET®?450 

Sk^Z  ^OPPOSITIONS  FOR  ESTATES  OF  W£X?  POlwT 

00  F.80  I  *  l.NS 

OET«p460 

ENtI*i«PT»  *  EN(I*K) 

D£T*p470 

BUS)  CONTINUE 

0ET*P480 

tfOXTE  (6*866) 

0ET*2490 

Of>2  CONTl?iU£ 

CET*?5C0 

9F3  CONTINUE 

0ET#2510 

iOQO  TP  *  »pALSE* 

D£T«252i) 

return 

0£T*2530 

END 

0ET*25*0 

SlMSOUT  JN£  SHCK 

setupn 

C*iD 


37 


ShC«0000 

ShC«0010 

ShC*0020 


o  o  oo 
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C 

C 


C 

C 


SUBROUTINE  rocket 

rocket  performance 
EJThER  HPSP  OR  TP5P  IS  TRUE 

LOSlCAL  HP*SP.TP»inE8UG»NF«R  »IONS*M0LES*FROZ»£Oi.»LO8VtHPSP.TPS? 
DIMENSION  AA (2) *8B f 2) »CC<?) 

COMMON/PO  t  NTS/H5UM  f 1 3 ) *  SSUM  <1 3 ) • CPR  d  3  > •  DJ.VTP  Cl  3 1 • DL  VPT  (13) 


8CK*Q000 

RCK*0010 

RCK*f)020 

RcK*0030: 

RCK*f>040 

RCK*0050 

RCK*0060 

RCK*0070 

RCK*00R0 

«CK*0090 

RCK°f 100 

RCK*nlin 

RQK*0120 
R$K*03 30 
8CK*0U0 


1  ♦3aHHAS:i33  vPC26)  .TC26)  .VU3>'»PPPCl'i*  »*HU3)  «S0SVELC13)  *TTTd3> 

2*TCTNd35 

COMmON/S?£^£?,/cOEF  t2»7*lS0)  *Sd50)  »ENd50,13)  «ENLNC150)  *H0  (150) 

1  tOELNClsf.)  «  'iU5*lSfll  »SUB C  150*3)  tlUSEtlBOl  «TEM»Cs0.2) 

COMhO.N/MISC/^  :^tSUMN,TT,Sp»AT0M{3,101).LLMT{l5)  ,80(15)  tB0P{15*2) 

1  ♦T'5»TLO«,TMTr,THIRH*PPtCPSUMfOF»EQRAT«FPCTtR*RR.HSU8o*ACt2>  *AMt2) RcK*oi50 

2  *8P?C2i »RHO(25 «VMrNt2) *VPi.SC2) *WP{2) *DaTa*22) *NaMEC15*S)  RcK*0i60 

3  ,ANJM(j5,5),prcwTa5is’cNTHa5).FAZ{15)»RTEMPcl5)*FOX{15)..OENSa5)RCK*ol70 

4  »K*0PtRMW(15) *TLN  RCK*01RO 

CO*-mON/INdx/  lDEBu6,CONve,TP,HP,SP#HPSP,TPSP,MO!.ES,NP#NT,NPT,NLM  «CK*0190 

1  ®NS*KMAT*I«AT.I0i*Xa2*N0MlT»IP.NEWR*NSUB«NSUP*lTM,cPCVFR.CPCVEQ  *CK*o200 

2  »IONS»nc,NSfRT»JSOL*JI.ISJ*KaSe»NReac*IC*JS1*VOL«*ShOcK  RCK*0210 

COMM0N/PERF/PCPC26) *VMOC{)3) tSPTM d3) »VACI (13) *SU8ARCl3i »SUPARll3> «CK*o220 

1  ♦C?RFa3)fAPAT{13).cSTS*EOl-*PP^»SS0  Rck*0230 

RCK»024C 

NaHELIST/RKTinP/EQL*F^OZ»SUBaR*SUPaR*PCP  RCK*o250 

RCK!*o260 


ITH  s  0 

210  OO  5J0  1*1*26 
»CPCI>=  0. 

SUdi^CT)  *  0. 

300  CONTINUE 
TT  -  3800. 
h=>sp  *  .true. 

HP  s  .true, 

TPSP  =  .Fal'j..' 

SQL  “  .TRUE. 
f roz  *  .true. 

Read  Is.Rxtinp) 

IF  CTd)  .EO.O.)  go  TO  303 
TP5P  =  .True. 
rr  =  Ten 

TP  =  .TRUE, 

hpsp  =  .false. 

303  iFCPCPd)  .NE.O.)  GO  TO  30S 
DO  305  1=1, NP 

X  s  NP^J.g 
PCK)  =  PCK-1) 

305  CONTINUE 
SO  TO  3ii 
3fl8  N? 3  2 

DO  310  Isi *24 
IF  (I.GT.j)  GO  TO  309 

IF  C«PcPtI).EO.O.).OR.PcPCI).EQ.l.)  SO  TO  310 

309  IF  (PCP(I) .EO.O.)  GO  TO  3ll 
NP  s  NP  ♦  1 

P(\>p)  =  P(1)/PCP(D 

310  CONTINUE 

311  NSUR=C 
NSUP  *  0 


-RCK*0270 

RCk*0?R0 

RCK«0290 

RCK*0300 

RCK*0310 

RCK*o320 

RCK««;330 

RCK*i)340 

«CK*0350 

RCK*0360 

RCK«0370 

Rck*o3ro 

RCK*0390 

RCK®0400 

RCK#04l0 

RCK*f)420 

RCK#0430 

Rck*o^*o 

RCK<*0*50 

RCK#0460 

RCK*0A70 

RfcK»n48ft 

RCK«qA90 

RCK*0500 

RCK*0510 

RCK#n5P0 

RCK»0530 

RCK*f.540 

RCK*05S0 

RCK*0560 

RCK*(i570 

RCKfoSRO 

RCK*0590 


1- 
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DO  320  5=1*13 

IF<SUt>AR(T)  «N£.0..1  VSUB=NSlJ3'*l 
IF(SU?AR{J)  ,NE,0.)NSUP=NSUP*1 
CONTINUE'  .  ! 

WRITE  (6«RKTINP) 

SSO  =  0.  s 

ITR0l=.3  , 

set  AS5IGNE0  p 

00  902  IP  =  l,«jp  ; 

pp  =  P(iP) 

CALL  EQLB'RM 

IF(TT.NE.O.)  GO  TO  333 
IF(nPT.EQ.O)  GO  70  1005 
SO  TO  90Q 

PCP(^T)  =  P(1)/PP 

IF(IP*GT.1)  GO  TO  195  . 

combustion. chamber 
TP  =  .FALSE. 

HP  =  .FALSE*  , 

SP  =  .T«UE. 

S0=  SSUH(l) 

pcp  (2)  =:  {  (gammasi  u  +1*1 /2«)  *"*  (gammas  til  /  cgamhasi li *1 •) ) 
R(2)  =  P(1>/PCP(2) 

IT  =  2.*TT/{GAMMASQJ*1*)  . 

SO  TO  900 

ii  IF <IP»6T»2)  GO  TC  900 
.THKOAT 

>  IFtlTH.NE.?}  GO  TO  191 
ITH  =  0 

GAMMAS (2)  =  0. 

SO  TO  900 

l  OH  =  HS'JM(1)-KSUM(2) 

DHSTAR  =  nh-CAMMAS(2>*TT*ENN/2. 

ir  (lOEK-'o)  «RITE<G»923)0hSTaR,hSUM(1)  »HSUM(2)  *PcPt2) 

J  P0RmAT(4E25.«)  , 

OH  =  OhSTaR/DH 
IFC0H.L1.0.)  OH=-DH 

I p  ( OH. LE . 0 •  AE**A . OR •  ITROT •  E®. 0 ^  GO  TO  900 
IF(jSOl.Ne.O)  ith  =1 

IF  :(JS0L.EQ*0.AN0.ITH.EQ.1)  ITHas2 
IF(lTH.EQ.O)  ■  GO  TO  192 

SPECIAL  ThROaT  INTERPOLATION  if  ITh  *  2 
OLNI: =  ,5*TT«ENN/(HSUH{1)-HSUM(2) ) 

AA(lTH)=.5*DLNI»{2.*DLNIt(SAMMAS(2)-l!.)/GAMMAS(2)) 

XX  =  alogipcpi^)) 

BSUTh)  =  i./GAMMAS(2)-0LNI-2.*XX*AACITH) 

CCUTH)  =  ENN*TT/(PP*(HSUM(l)-HSUM(2n**.5) 

CC(ITH)  =  ALOG(CC(lTH))-XXf>CBB(lTH)^AA(lTH)*XX) 

IF(-TH.EO.l)  GO  TO  192 
SB  ( 1 ) =08 ( 1 ) -BB (2) 

AA(l)=AA(i 1-AAJ2)  ! 

»CP (2)  =  (-BB CD  VIBB (1 >^8B <i > -*.*AA tl > * <CC U ) -CO <2> > > **.S) 


RCK*0600 

RCK*OMO 

RCX*0620 

RCK«nf.30 

RCK*t»640 

RCKco650 

RCK*n660 

RCK»0670 

RCX*OGGO 

RCK«0690 

RC«<#flTOO 

RCK*0710 

RCK*n720 

RCX*0730 

RCK*f»7*0 

RCK*n750 

RCK«07&0 

RCK«O770 

RCK«07S0 

RCK«o790 

RCK«nBC0 

RCK*n3lo 

RC<ft082« 

RCK*0830 

RCK*oB4A 

SCX*!)B50 

RCK*03fin 

RCK*0870 

RCK*n8B0 

RCK»o890 

RCX»0900 

RC**n910 

RCK°0920 
RCX*n93o 
RC<*0940 
RCK^oRSO 
RCK*o9£0 
RCK«0970 
RCK*0980 
RcK^ogqfi 
RCKoiOOO 
RCK*1010 
RCK*10?0 
RC*°1030 
RCK*1040 
RCK«1050 
RCK*lOfiO 
RCK*1070 
*0**1080 
RCK*1090 
RCK®1100 
RCK«1110 
RCK*1 120 
RCK*1130 
RCK*1140 
RC*°1 150 
RCK*ll50 
RCK*1170 
RCK«1180 
/{2.*AACl)RCX*ll90 


on  n 


100 


1) 

PCPj2}=ExP<PCP<2)> 

GO  TO  103 

102  PCP(2)s  PcP(2>/<1.*2.*0HSTaR/(ENN*TT  * (GAMMAS (2) ♦!•))) 
193  R{2)  =  P(l)  /  PCP(2> 

?P  ss  P<2) 

IT*0T  a  ITfiOT-l 

call  eolbrm 

IFCTT.EQ.O.)  so  TO  1000 
SO  TO  190 

900  <  *  0 

IF  t.NOT.EQL  .and.  FROZ)  60  TO  990 
IF<IP*EQ.NP.OR.TT.EQ.O.)  so  To  860 
<  *  NPT 

IF(nPT.ME.13>  GO  TO  870 
860  CALL  RkTOUT 

IF  { (NSliB  ♦  NSUPJ.NE.O)  CALL  RATIO 
IF (K.EQ.O)  60  TO  990 
1 6.865) 

865  FORMATCiHi) 

NPT  *  2 

870  NPT  a  NPT  «  1 

SAVE  COMPOSITIONS  FOR  ESTIMATES  OF  NEXT  POINT 

DO  880  I  *  i.NS 
cn(I«NPT)  a  £N{ 1 *K) 

8«0  CONTINUE 
902  CONTINUE 

990  IF  (FROZ)  CALL  FROZEN 
1000  RETURN 
ENO 


RCK*1200 
RCK*i2io 
RCK*1?»0 
RCX*! 230 
»CX«M  240 
RCX*1250 
RCK* 1260 
'-CX*1270 
RCK*12%0 
RCK»i290 
RCK*1300 
RCK*l31f) 

8qK*1320 
R{K«1330 
Rf K*l 340 
RCK*1350 
RCK*1360 
RCK*1370 
RCK*1380 
RCK«1390 
RCK*1400 
RCX*1 41 o 
RCK*1420 
rCK*1«30 
RcK#1440 
RCK*i45n 
RCK*i46o 
RCk*1470 
RCK*1480 
RCK*149o 
RCK*l500 
RCK*i510 
»CK«i520 


or»o  ooo  ooooo 


10] 


SUBROUTINE  rktout 
rock-t  performance  Parameters 

LOGICAL  EQL.FROZ  .TP.HP.SP.HPSP.TPSPtSHOCK 
0IMENSI0M  NV(13) .Z(10.4) 

C0mm0N/P0inTS/hSUM(13)  *SSUH (13)  .C?RC13)  »DLV7P{13)  »0LVPT(13) 


RkTooOOO 

Rkt*ooio 

RkT«oo?o 

RkT«0030 

RkT*O040 

RKT*0050 

RkT*0060 

«KT*n070 

Rkt«ooro 

RkT*o09R 

ftKT°rilor, 
RxT«nim 
RxT*ol 20 
RKT°nl3n 


1  ,64M«AS{13) .P(26j ,7(26) ,V(13) ,PPP{13) *WM(i3) ,S0NV£L{13) ,TTT(13) 

2  »T07n { 13) 

C0Mm0.\/SPeCES/c0EF(2»7.150)  »S(150>  »£N(150.13)  ♦ENLN(ISO)  »H0{150) 

1  , UELN(15o) ,A(15*1S0) »SUB(l5o»3) »  2 USE (150) * TEMP { 50*2) 
COM«On/hISC/EN»4.SUmn.TT,So*ATOm{3,ioi) »LLMT<i5) *30 (15) .80P(15»2) 

1  ♦T'1»TLOW*THTn«THIfiH*PP*CPSUH.OF«EORAT.FPcT*R«RR*HSU(lO»AC(2)  «AM  (2)  3kT*014Q 

2  ,HPP i2>  »RHO (?)  ,VMIN(?)  ,VPLS(?)  ,WP(2)  ,0ATA{22)  .NAME { 15.5)  RfCT*.'150 

3  •AmUM(15,5) ,PECWT(15) »EM7H(15) .FAZ(15) »RTEMP<15) »F0X(15) »DENS<15>*KT«nl60 

4  ,RhOP.RMW(15) «TLN  RkT*0170 

COMHON/lNnX/  IOEBUR,CONVG,TP,HP,SP.HPSP,TPSP,HDLES,NPtNTtNPT,NLM  RkTooIBO 

1  *NS»K>lAT,IHAT»IOl»lQ?»NOHIT»TP«NE»<R»NSUe*NSUPt:TN»CPCVFR*CPCVEO  RKT*»nl90 

2  . IONS, NC,NSERT.JSOLtJLIO. RASE. NREAC«1C*JS1» VOL. SHOCK  RkT*0200 

C0Mm0N/PERF/PCP(26),Vm0C(13) »SPIM(i3) ,VaCI (13) . SU3AR(13) ,SUPaR(13) RkT*0210 


l  *CPRF <13) »AFAT (13) »CSTRtEOLtFROZtSSo 
COMMO.\/OUPT/FMT(30)  »FP  (4)  ,FT  (4)  »FHC4)  «FS(4)  »FM(4)  ,FV{4)  ,F0(4) 

1  ,FC(4),FG(4),FB,FMTl3,FifF2tF3*F4,F5tFL(4),F'ITI9,FAitFA2 

2  tFRltFCl«FN(4) »FR (4) *FA(4).FI(4) ,FMT9X#F0 


PERFORHANC 

//) 


rocket  performance 
//) 


EQUIVALENCE  (V.NV) • (Z»H0) 

DATA  EXIT/4HEXIT/ 

IF(£QL)  WRITE  (6.37) 

37  F0RKAT()Hi/?4Xt84HTHE0RETlCAL  ROCKET 
Hum  composition  ouring  expansion 

IF  (•NOT.pQl)  WRITf  (6.38) 

38  FORMAT fiHi,26X,78HTHE0rt£TlCAL 
IOmPoSITION  during  expansion 

IF  (TPSP)  wRITr  (6.737) 

FORMAT  (5?X,2bhaT  an  ASSIGNED  TEMPERATURE 
V(l)  =  PPP(1)*14, 696006 
WRITE  (6.40)  V,  1) 

-CRMAT(5H  PC  a  .F8.1.5H  PSIA) 

CALL  OUT1 
N£X  =  NP7  «  2 
DO  862  I  s  l.NPX 
V(I)  -  EXIT 

WRITE (6.48)  (V(I) tT=l»NEX) 

FORMAT (1H0.16X.16HCHAM8ER  THROAT 


RkT«o220 
RkT*0230 
RKT«f)240 
RkTc0250 
RkT«o260 
RkT°o270 
Rkt»o2ro 
RKT*ft290 
RKT»n300 
RkT*0310 

ASSUMING  LQUILIBRRkT«p320 

RKT«>33fl 


ASSUMING  FROZEN 


737 


40 


862 


48 


*11 (5X» A4) ) 


PRESSURE  ratio.' 


FmT (4)  =  FMT (6) 

CALL  VaRFmT  (PcP*N°T' 

WRITE  (6.FHT)  FRl*FB»F8tF8» <PCP(J) » JalfNPT) 
CALL  0UT2 

AGV  =  9.306S5 
00  202  K=2,NPT 

S?Im(K)  =  (2,*RR*(hSUM(1)-nSUm:K) ) )«*.5/AGV 


RkT*0a40 

CRKT«n2S'. 

RKT«n36. 

RkT*0370 

sKT«{138o 

RkT*03R0 
RKT*n4no 
RKT*n4l n 
RkT^oapo 
RkT»0430 
RkT^OAaO 
SKT«0450 
RKT«n460 
RKT*0470 
RKT*043n 
RKt*0490 
RkT*0500 
RKT«0510 
RxT°o520 
RkT«0530 
RkT*o540 
RKT°n550 
R.KT«0560 
RKT«n570 
kkT*o5BO 
RKT*0590 
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C 

C 


C 

c 

c 


A*  (A/WJ  IN  UNITS  OF  SEC/AtM 


200 


2*2 


AW  3  RR*TTT (K) / (PPP(K)* 
IF (K«N£,2) go  TO  200 
AWTsAuf 


WM(K)«SPm(K)»A6V**2> 


CSTfts32. l 74 *P ( i ) *AWT 

AEAT IK)  3AW/AWT 

VACT (K)sSPIM(K) *PPP(K)*AW 

NV ( k? °NcSTRKi ^I’0* ^  VM°C <K> 9SPIM tKi **GV/SONV«.i*K) 
CONTINUE 


MACH  NUMBER 


C 

c 

c 


c 

c 

c 


c 

c 

c 


VM0c<ll*0, 

IF(GAMMaS(2) .EQ.O.)  VMOCC2)»0. 
FMT (7)  m  F3 


WRIT£<6.FKT> (FN(I) »I*I v4) » (VMGCJ J) *J*1*NPT) 
WRITE  (6.208} 

208  FORMAT  (Jh  > 


C* 


FrtT(4)  a  FMTRX 
FMT (5)  m  PMT13 
FMT (6)  s  FMT! 9 
FMT  (7)  *  F8 

WRITE<6.FMT) (FR(I) »I«1#4) , (NV(J) »jW2,NPT> 
CF  *  THRUST  COEFICIENT 


FMT(6)  a  FMT(8j 
FMT (7)  *  F3 
_  00  212  1*2, NPT 

212  V(I)=32.174*SPIM{I>/CSTR 

WRITE t&»FMT)FCl »Fb.F8»F8» (V(U) . J*2 »NPT) 


AREA  RATIO 


call  varfmt  (aeat.nptj 

FMT (5)  a  fb 

WRl-TE(6.FMT)FArtFA2,F8,FBt(AEAT{J},J.2,NPT) 

c  vacuum  impulse 
c 

FMT (5)  a  FMT13 
FmT  (7)  a  j?l 

c  *,*ITE(6.FMT)  {FA{I),Isl,4)#(VACI(J)tJ«2tNPT} 

C  SPECIFIC  IMPULSF 
C 

WRITE(6.FMT) (FI  (!) »I»1*4) , (SPIM(J) .J«2.NPT> 

WRITE  (6.208)  c 

FMT (4)  a  FB 

FMT (5)  a  FMT13 

FmT (7)  3  F5 

IF(EOL)  go  TO  312 

.  WRITE«6.3lO> 

310  FORMATaSHOMOLE  FRACTIONS  //) 


RKT*ft6fln 

RkT«0610 

RkT»o62A 

RkT*0630 

RKT*0640 

RKT»o650 

RkT*0660 

RkT*1)670 

RkT*|)680 

RkT*06r0 

RkT*0700 

RKT*o710 

RkT*0720 

RKT*0730 

RKT»o7ao 

RkT*0750 

RkT*0760 

«KT*o770 

RkT*0780 

RkT*o790 

RKT*o8no 

RkT*0810 

RKT*0820 

«KT*p830 

Rkt*obao 

RkT*0850 

^NT*nB60 

RK*i  *0g70 
RKT*0880 

RKT*0b90 

RkT*0900 

RKT*0910 

*KT*o92o 

RkT*0930 

RKT*o940 

RKT*0950 

RKT*o960 

«KT*0970 

RKT*09ft0 

R.<T*099o 

Rkt*iooo 

RFT*101fl 


RKT*1 020 
RKT*1030 


R»\T#1040 

RkT*i05o 


RkT*1060 

RKT#i070 

R<T*ioro 

RkT*io9o 

«KT*H00 

rKT*hio 


RKT*ll?n 

RKT*1130 

3*7*1140 

RKT«1150 

RKT*H6o 


RkT*U70 

RKT*H80 

RKT*H9o 


O  f» 
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MOLE  FRACTIONS  .  FROZEN 

RKT*l200 

RKT«i2io 

00  309  1=1, NPT 

RkT*1220 

DATA(I)  s  o. 

RkT«i 230 

00  30B  K=l«NS 

RKT»)240 

DATA(I)  =  OAtA{I) ♦EN{K«I) 

RKT*»l250 

308  CONTINUE 

RKT*) 260 

309  CONTINUE 

RKT*1270 

LINE  =  o 

RkT*)230 

00  430  K  =1*NS 

RKT*)29o 

V(LINE*1)  =  EN(K»1)/0ATA{I) 

RkT*130G 

IF  <V(LINE*1> .LT» (5.E-6))  60  TO  *24 

RKT«)3lo 

LINE  =  LlNE*l 

RkT*13?0 

Z(LINE,1)  =  Sua(K,l) 

RKT«1330 

Z{LIN£»2>  =  SU3(K«?) 

RkT«i3*0 

Z(LINL*3>  =  SU?{K«3) 

RKT®1350 

Z (LINE  »4)  =  V(LINE) 

RKT«l360 

474  IF  (LlNE.N£.H«ANO.K.NE*NS}  60  TO  430 

RkT°)37q 

IF  (LlNE«£Q«0)  60  TO  312 

RkT«)3bO 

WRITE  (6,426)  (Z(LN,l),Z(LN«2),Z(LN,3>,ZtLN,4),LN»l.LINE) 

RkT*)390 

426  FORMAT  (ih  *4(3A4»F9.5»7X)J 

RkT*)4oo 

LINE  =  o 

R^UIO 

430  CONTINUE 

RKT«142o 

312  CALL  0UT3 

RKT*)43o 

looo  return 

RkT®1*40 

END 

RkT»1*50 

oo  o 
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C 

C 


c 

c 


SUBROUTINE  RATIO 

(USED  FJR  AREA  RATTO  INTERPOLATION  ONLY) 


Rl0*0000 

Rl0*0010 

RlO#p020 

Rl0*0030 


DOUBLE  PRECISION  6.X 
LOGIC*--:  EQL*  FROZ.TPSP  - 

DIHEN  »ION  PER (2.2) .Al (13) . APCP (13) .AT (13) .AHNT (13) .«P{2) .NV (13) 
1  .  RP»(2) 


Rl0*o040 

&IO*0O5O 

RIO*OOAO 

RIO«0070 

RlO#00«O 

RIO#OOqO 

Rio*o1oo 

RlO*0llO 

rio*o12o 

RIO*0130 

RI0*0140 

RlO*OlSO 


COMMOiM/POinTS/hSUH (13) .SSUH (13) ,CPR (13) «0LVTP(13j .DLVPT (13)  «lO*olOO 

1  .64HHaS(i3) *P(26) .T (26) *V<13>  *PPPtl3>  »WM<13) •SONVELtlS) *TTT(13)  RlO*pllo 
2.T0TNC13)  R!0’ifll2fl 

COMM0N/SPECES/COEF(2.7,150)*SnS0).EN{lS0.13).ENLN{15ft).HG(lS0)  «IO*0130 
1  »OELN(l5o) *A(15*150) »SUB(l5o»3) »lUSEtl50) »TEMP(50»2)  Rl0*pl40 

rOMHON/HiSC/ENN.SUMN.TT.So»ATOi-!:3»101)  »LLM“(15)  .80115)  »flOP  (15.2)  RiO*ol5P 

1  .Tm.TL0H.TMTD. THIGH. PP.CPSUh.OF*EORaT.FPCT?R»RR»HSU80»ACC2)vAH(2)RIO*o160 

2  .HPP(21  »RH0(2)  »VMIN(2)  »VPLS(2)  »HP(2)  «DaTa(22)  .NAHEH5.5)  Rl0*0l70 

3  , AnUH(i5,5),PECNT(15) »ENTK(15) *FAZ(15) *RT£MP<15) »F0X{15) tOENS(lS) RlO*0l5n 

4  »ShOP.RHW(15)j»TLN 

COHHON  /DOUBLE/  GCP0.21).  X(20)  j*lO  0200 

COHmON/INOX/  IOEBUG,CONVG,TPfHP,SP,HPSP.TPSP.H0LES,NPtNT,NPT,NLH  RlO*o210 
,  .nS.KMAT. IMaT. IOi • IQ2.N0HIT. IP.NENR»NSUB»NSUP. ITn.CPCVFR.CPCVEO  rIO*o220 
2  .I0-nS,nc.NSeRT.JS0L»JLIQ.KaSE.NREaC*IC»JS1. VOL* Shock  Rl0*0230 

C0HH0N/PERF/PCP(26) .V«0Ctl3) .SPIN (13) ,yACI (13) ,SUBAR(l3) ,SUPAR(13)*I0*0240 


1  .CPREll3)  »AEAT(13)  .CSTR.eQL.FR02->SSo 
COHmON/OUPT/FHT (30) .FP(*) »pT  »♦> »FH(4) »FSC4) *FH(4) *pV(4) «FD<4> 

1  ,FC(4),FG(4),F8,FMTl3,Fl,F2,F3,F4,F5,FL(4),FMTI9,FAlfFA2 

2  «fR1»FC1»FN(4) »FRt4J •FA(4>  »FI U> .FHTsX.pO 

EQUIVALENCE  (V.NV) 


RIO*o250 

Rl0*0260 

RI0*0270 

Rl0#02q0 

Rl0»f)290 

RlO*n300 

Rl0*03l0 


N8L0  *  NPT-2 
DO  ?2  J=3«NPT 

IF(PCPU).GT.PcP12)>S0  TO  30 
22  CONTINUE 
SO  TO  31 

30  NRLCFJ-3 

31  DO  1200  ISGNIC»1*2 
LL  3  1 

IF(IS0niC.EQ«2)  GO  TO  34 
IF(NSUB.EO.O)  60  TO  1200 
VaR  =  NSUB 
SO  TO  36 

34  IF(NSUP.EO.O)  60  TO  1200 
N&R  =  NSUP 
36  DO  llOO  Ial.NAR 

IF (lS0NIC.EQ.2j  60  TO  40 
IFtNBL0.LE*l>  60  TO  1100 
<=2-*Nt)L0 
DO  38  Ja4.K 
V(LL>  =  SUBAR(T) 
IF(V(LL)«GE«AEATtJ>)  GO  To  56 
38  CONTINUE 
SO  TO  56 

40  IF<nPT«nrlO.LE.3)  60  TO  1100 
V(LU  -  SUPAR(I) 

K=4-»N3L0 
DO  42  jaK.WPT 

IF(V(LL).LE.AEaT(JJ)  GO  TO  56 


RIO*0320 

RIO*o330 

«I0*O340 

RI0*0350 

Rl0*n360 

RI0*0370 

RI0*03B0 

RlO*o390 

Rl0*0*00 

Rl0*o4lo 

RIO"54?o 

Rl0*0430 

Rl0*o440 

Rl0*p450 

RlO*0460 

RlO*o*70 

Rl0»04B0 

RlO*0490 

RlO*n5oo 

Rl0*0510 

Rl0*o520 

Rl0»0530 

RIO*o540 

RI0*0550 

Rl0'*0560 

Rl0»o57(l 

Rl0*05B0 

Rl0*0590 
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42  continue 

IFiVtLL)  .GE.AEATUXO.)  60  TO  85 
56  <J  *  J-l 
K  s  KJ 

00  6*  JJ=i *2 

IF(CP«(K) .NE.0.3  60  TO  63 

wRITE«6«62)K 

62  FORMAT { ] 7H0CANNOT  USE  POINT* l2»3X»4HCP=0  3 
30  TO  1100 

63  »E3(JJ«l)=-l./(CPR{K)«Wri(K) > 

IF  (EQL)  PER(JJ*13  =  PERI JJ*l)*DLVTotK) 

P£R{JJ.2)3  TTT{K)/(2.*WM{K)*(HSJmi}«HSUM{K) )) 

RPCJJ)  =  l ,/(1./GaHMaS(K)-PER(JJ*2) ) 

IFlEOUSPPUJ)  =  l.*DLVPT{K>*n.OLVTP<K3)#PER{JJ*li 
<  =  kj  ♦  i 

64  CONTINUE 
AMWTtLL)  =  WH(l) 

CALL  SE7(PCP{KJ}.RP(1) tAEAT{KJ)fVcLL>,  APCPjLL)} 

CALL  Set  ( TTT  ( KJ>  »  PFR  { 1  ♦  1 )  .PCP  (KJ)  *  APC?  ILL)  *  AT  (0.3 ) 
IF(eQL)CALL  SET  (HM(KJ)tRPPa>.PCP{Kj>tAPCP<LU»AMWT(LL)3 
X  s  KJ 

DO  74  JJ=i«2 

G < J J * ? ) =SPIM ( K> **2 

G(JJ»2,7)=2.*G{JJ,7)*P£R{JJ»2) 

G ( JJ*4«7)  =  ( 1 .-GAMMAS (K) ) /GAMMAS (Ki  »G  <JJ*2»7) 

3 1 JJ* 1 3  — 1 ■ 

3 ( JJ*2 *13=  0 
G(JJ*4,l)3p 

S{JJ»2)=AL0G{PCP‘K3) 

G(JJ*2,2)=1. 

G ( JJ*4»2) -0 
DO  70  M=3,6 

G(JJ*2»M)=G<jjt2)*''\P-2)*FLSAT{M-l) 

S ( JJ.4 tM) -G { JJ.2.M, /% { Jj,2) *FLOAT {M.2j 
70  CONTINUE 
K  *  KJ  ♦  1 
74  CONTINUE 
IMAT  =  6 

call  msausd 

A I  (LI  3  =  X  (1) 

DO  34  JJ=2»6 

AI tLL)=Al ILL) ♦  X  (JJ)*AL0GCAPCP{LL))**{JJ-1) 

84  CONTINUE 

IFUHLD.LE.0.1G0  TO  85 
AI<LL)  =  AI<LL>**.5 
SO  TO  86 
LL  *  LL  -  1 

IF{LL.GE.13.0R.I.GE.NAR)  GO  TO  90 
LL  =  LL*1 
60  TO  1100 


NG 


QO  IF(EQL)  W3ITE  (6» R7> 

87  r04MA7nH-./24X,84HTHE0RETlCAL  ROCKET 
HUM  COyPOSITTON  DURING  EXPANSION 
IF  {.NOT. £01.)  NRITF  (6.88) 

85  FORMAT {iHit26X,78HTHE0R£TlCAL  ROCKET  PERFORMANCE 
IDmPoSITJON  DURING  EXPANSION  //> 


ASSUMING 


RlO«n6in 

RI0*0620 

Rl0*0630 

RlQ*n64n 

Rl0»n650 

RlO<*o6ftO 

RIO*0670 

Rl0*06fi0 

Rl0*n69n 

Rio^on 

RI0*»0710 

Rl0*0720 

Rl0*0730 

Rl0«n740 

»I0*0750 

Rl0*n760 

Rl0»(l770 

RlO«o780 

Rl0«0790 

Rl0»0800 

RlO*flSlO 

Rl0*0820 

Rl0»o830 

«IO*o840 

Rl0«0850 

RlO*0B60 
RIO*0870 
Rl0»08flG 
RJO*0850 
Rl0*0900 
R!O«n910 
Rl0*(i32ft 
810*0930 
RIO«o940 
Rl0»r.95fl 
RlO*f!96J 
RI0*097 0 
Ri0«o93o 
810*0990 
810*1000 
RIO»1010 
RjO*I 020 
810*1030 
RlO*l 040 
RIG»]C50 
RIO*] 060 
810*1076 
810*1080 
810*1090 
810*1100 
8J0*1 110 
810*1120 
RlO*l 130 
RjO*l 140 
fQUlLl9RRlO*i iso 
8f0*i 160 
810*1170 
FROZEN  CRIO*U90 
«lOa1190 
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IF  (TPSP)  WRTtE  (6.99) 

99  FORMAT  (S2X,2flHAT  AN  ASSIGNED  TEMP£Ra7UR£ 
WRITE  (6.91) 

9i  FORMAT  (5pX,?«HF0R  aSSIGNEO  AREA  RAiIOS  ✓/) 
?C=  P‘-l  1*14. 696006 
WRITS (6. I9l ) PC 

191  F0RMAT(SH  PC  s  ,F8. 1.5H  PSIA) 

CALL  0UT1 

IF(lSONIC.EQ.l)  *RITE(6.331 
33  FORMAT (18H0SJ8SONIC  FLOW  //) 

IF  (lS0NIC.tO.P>  WRITE  <6.3S> 

35  FORMAT (18hCSUPERS0NIC  FLOW  //> 

C 

c  area  Ratio 

c 

FMT (6) s  FMT (ft) 

FmT(4)»  FMT (6) 

CALL  VaRFMT  (V.NPT) 

*RIT£(6,FMT)  FAI.FA2.F8.Fft, |V(M) ,M«1,LL) 

c  vacuum  specific  impulse  and  specific  impulse 

c 

DO  93  H=1.LL 

V(M)=AI (M)*CSTR*V(M)/ (32*174*  *PCP( M) ) 

93  CONTINUE 

FMT (41  a  FMTJ3 
FmT(5)=  Fe 
FMT (7) a  Fl 

W3IT£(6»FmT)  (FA<N)*N*1»4)*  <V(M> »M*1 *LL> 
WRITE  16. FMT)  (FIt.N)  •N»*l«4)»  Ul  (H)  *M*1  »LL> 

C 

C  C* 

C 

FMT{5}=  FMTI9 
DO  94  Ms) .LL 
NV(M>*CSTR  *„5 

94  CONTINUE 

WRITE<6*FhT1  (FRfN) *N»1»4) ,  CNV(M) ,K*1»LL> 

c  cf  .  thrust  coefficient 

c 

90  95  m=1,LL 

V(M)=AI (M j  *32* 174/CSTR 

95  CONTINUE 
FmT(5)s  Fr 
r MT (7)  =  F3 

WRITE (6.FMT)  FC1 .FB.F8*FB. (V (M) .M«i ,LU 
WRITE <6.96) 

96  FORMAT I 1H  ) 

C 

c  PRESSURE  RATIO 

C 

FM7(4>=  FmT (6) 

CALL  VftRFMT  (APCP»NPT) 

C 

CALL  VARFMT  (A?cP*NPT> 

C 

c  pressure 

C 


Rl0«)200 

RI0*1?10 

Rl0f)220 

Rl04i?3ft 

RlOcl?An 

RI0M250 

RIO*]260 

RlO*l 270 

RI0*12r0 

RIO*) 290 

Rl0*)3no 

RIO*1310 

RIO*1320 

RI0*1 33C 

RI0*13A0 

RI0*1350 

RI0»1350 

RI0*1370 

RlO*)3B0 

RI0*1390 

Rl0*1400 

Rio*i4in 

RIO*14?0 

RtO*1 430 

Rl0*)440 

Rl0»l450 

Rl0*!460 

Rl0»1470 

RlC*i4fto 

Rl0*149o 

Rl0*l500 

«IC*)510 

Rl0«*l520 

RlO*l 530 

RI0*1S40 

Rl0*)55n 

310*1560 

Pl0*l570 

RlO*lSBO 

RIO* 1590 
Rl0*i6nn 

RI0*I610 
RI0*1 620 
Rl0*1630 
RlO*l 640 
Rl0*l650 
«IO*1660 
Rl0*l670 
Rl0*l6B0 
RIO»i690 
RIO*1700 
RlO*l7lO 
RlO*i72f» 
RI0»)730 
RI0*1740 
»I0*1750 
RI0*1760 
RI0*1770 
RI0*17B0 

»I0»I790 


ooo  ooo  ooo  OOO 
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WniT£<6*FKT>  FRl #FatF8»FB»  (APCP<M>  *M=1»LL> 

DO  q8  M=1*LL 
V(M>  s  P(1)/APCP(MJ 
QB  CONTINUE 

CALL  VflRFMT  {V*NPT> 

WRITE (6»PMT)  (FP{N),N=1»4).  (V(H) ,M*1.LL> 

TEMPERATURE 

00  101  M=l,LL 
MV (M)=AT  *MJ  *.5 
lsij  CONTINUE 

FMT(4)=  FMT13 
FMT(5}=  FMTI9 

WRITt(6.FMT)  (FT(N) ,N*1,4) »  (NV(M) «Mal«LL) 

enThalpv 

FMT(5)=  Fq 
FMT (7) s  FI 
00  104  M=1,LL 

V(M>=  HS'JH{1)»R-1000«**AI  (M)/294*98>#*2 
194  CONTINUE 

WRITE (6»FmT;  CFH{N),Nal,4).  (V 4H) .Mrl *LU 

entropy 

FMT(7)=F4 
Vll)  =  SSUM(2)*R 
DO  106  M=1*LU 
V  (M)  =  V  £l> 

106  CONTINUE 

WRITE (6»FmT)  (FS(Nl,Nsl,4j,  (V(M) ,M*1,LL> 

MOLECULAR  weight 

FMT{7)=f3 

WRITE (6tFM7j  {FMJNj  »Nal ,4) •  (AMWT (H) *H*1 * LL) 
1100  CONTINUE 

1200  continue 
return 

END 


RlO°i8nn 
R10*1810 
RlO»l 820 
RIO*iAbo 

RlO«*i84n 
Rl0*i85n 
RlO*i8f.O 
Rl0*187n 
RlO*l 890 
RlO°l 890 
RlC*1900 

Rl0*l9l0 
RI0*1 920 
Rl0«1930 
RJ0*1 940 
RIO«M950 
RlO°l  9£>0 
RI0*1 970 
Rl0*l9B0 
Rl0*1990 

Rl0»?000 

RIO*?010 

Rl0«20?0 

Rl0*?030 

Rl0*?040 

Rl0«?050 

Rl0»?060 

Rl0*?070 

Rl0*?0$0 

Rl0«2090 

Rl0*2lno 

RI0*2I10 

RlO*?i;-o 

RlO*?l30 

RIO®2140 

Rl0«2l5n 

Rl0*?l6n 

Rl0*?170 

RIO»218o 

RlO«2l90 

Rl0*2200 

RIO*2210 
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SUBROUTINE  SET(ONE«TWO*THrEE»ArG.HaL) 

(USeC*  for  AREA  RATIO  INTERPOLATION  ONLY) 

SETS  UP  ALL  4  BY  5  MATRICES 

DOUgLE  PRECTSION  a»aNS«6#X 

DIMENSION  ANS(6)»0NEC2>»TW0<a) # THREE <2> #A «20»21) 

COMMON  /DOUBLE/  G<J>0t21)*  X<2fl) 

COMMON/iNnX/  Ii)EBUOtCONVG*TP»HPtSPtHPSP»TPSP»M9LES»NP*NT»NPTtNLM 

1  •NS#KMAT»IMAT»J91»I02#N0MlT»TPfN£*RfNSUB»NSUP»lTWtePCVPR»CPC¥£0 

2  .  IONS, NC«NSERT » JSOL»JLIQ,KASE ,NR£aC»  IC*JSl  *  VOL1*  SHOCK 

EQUIVALENCE  (Gt A) t  <X» ANS) 

DO  B  U*l»2 
A<Jt5)*ALOG<ONE{J) ) 

4(.J,2#S)*TH0{J) 

A(J.2>=AL0G(THR£E(J>) 

8  CONTINUE 
00  1  1=1*2 
A(i»i>*i*e 

A(I*2*1)=0.0 
A(I*2»2)*i,o 
DO  1  J=2»3 

a(I»J*D*a«I»2)**J 

A  {I*2»J»l)cA(I,2)'»*(J«l)*FL0AT (J) 

1  CONTINUE 
IMAT  =  4 
CALL  MGaUSD 
HAL=ANS(i) 

SUMsaLOG(aRG) 

DO  10  J=l*3 

HAL=HAL»SUM**J» 1 ANS ( J*1 >  > 

{0  CONTINUE 
HAL*EXP(HAL) 
return 
END 


SET*©00ft 
SET*fiOt« 
SeTBOOEA 
SET»oC';0 
SETerOAO 
SeT*0C-50 
SeT*0060 
S  •  • *0070 
SeT’OOBO 
SET«o090 
SET*rjOO 
S£T*.illO 
S£T*ol20 
S£T«nl30 
S£T*01*0 
SET*M50 
S'T*ftlfto 
S£?*0170 
S£T*018o 
SeT*0190 
SeT*0200 
S£T*o210 
S£T*o22o 
SeT*0230 
SET*n240 
S£T*f.25o 
SeT*0260 
S£T*o270 
S£T*n2B0 
SeT*0290 
SeT*0300 
SET*n3lO 
S£T*n3?0 
SET*o330 
SET*n340 
S£T*0350 
S£T»0360 
3ET*0370 
S£T*0380 
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SUBROUTINE  frozen 

(FROZEN  COMPOSITION  EXPANSION  ONLY) 

LOGICAL  E0L,FR07»C0NV6 

COMmON/POinTS/pSUM  (13)  t SSIJH  (13)  »C?R  (13)  t DLVTP  (13)  .pLVPT  (13) 

1  ,SaMMaS(13) .P(26) .7(26) ,V(13) .PPP{13) .WM(13) ,S0NVEL(13) ,TTT{13) 

2»T0TN(i3} 

COMmON/SPecES/c^EF  (Z.T.l^fll.SllSO)  *EN(150.13)  .-NLNdSO)  *hO(150) 

1  ,DELN(150).A(l5tlSC) .SUB(lS0.3) .IUSE(150) .TEMP {50, 2) 
COMmON/m:sc/£NN.SUmn,TT.So,ATOH(3»101) »LLMT(i5) .93(15) *BoP(l5»2) 

1  ,tm.Tlom,vkio,thigh.pp,cpSUm,of.eqRa7,fpcy*r,rr.hsU8C.ac(2) *AM(2) 

2  *HpP(2) .RHO{?) .VKIN(2) ,VPLS(2) »WP( 2) ,DATA(22) ,NAME(15.5) 

3  ,AnUM(i5,5) ,PECWT(15) »ENTH(i5> .FAZ(l5>  »RTfc.HP(15) »F0X(15) *0ENS(15) 

4  .RhOP.RM* (15) .TLN 

COMhOn/inoX/  ioebug.convg.tp.hp.sp^hpsp.tpsp.mdles.np.nt.npt.nlm 

1  .NS.KMAT, IMAT. 10) « IQ2.N0MIT.IP.NEWR.NSUR.NSUP. ITn.CPCVFR.CPCVEO 

2  .ions,nc,nsert.jsol»jliq.<ase.nreac»ic«jsi*vol*skock 

CGMM0n/PERF/PCP (26) ,VM0C(l3),SPIMti3),VACI{13),SUBARcl3) ,SUP&R(13) 

1  .CPRF (13) .AEAT(13> .CSTR.eQL.FROZ.SSO 
COMMON/OuP-T/FMt (30)  *FP (4)  .FT (4)  ,FM{4)  . FS{4)  ,FM(4)  ,FV(4)  ,FD{4) 

1  .FC{4).FG{4).FBtFMTl3.Fi,F2tF3*F4.F5.FL(4).FMTl9»FAl.FA2 

2  »r R1 »FC1 »FN (4) »FR(4) »FA{4) ,FI (4) .FMT9X.F0 
TTROT  =  3 

EOL  =.FALSE. 

NPT  =  2 
TT  =  TTTU) 

TLN=ALOG(TT) 

SAMMASid  =  CPRF(1)/(CPRF(1)-1,/WM{1)) 

CPR(D  =  CPRF(l) 

ocp(2}  =  ( ( GAH**  aS  ()  )  ♦  1 . )  /2  •  )  **  (  GAHMaS  ( 1 )  /  (  GAMMaS  1 1 )  "1  •  )  ) 

0ATA{1)  =  2, / {GAMMAS {1 )  ♦  1.) 

tln  =  tln  ♦  alog(daTa(i) ) 

00  q02  IP=2,NP 
iF(NPT.EQ.2}  GO  To  45 
PCP(NPT)  =  P(i)/PtIP) 

45  CONVG  =  .FALSE. 

?C?LN=  4L0G(PCP(NPT) ) 

SO  =  ssc  -PCPLN/KH(l) 

5UMH  =  0. 

51  TT=EX?(TLN) 

SUMS=0, 

J31  =  1 
N'JN  =  f.'PT 
VPT  =  1 
CALL  CPnS 
MPT  =  NNN 
00  50  J=1.NS 

IF(EN(Jtl),EQ.O.>  GO  TO  60 
SUMS  =  SUMS  ♦  5(J)«EN(J»1> 

IF(cONVG)  SUMH=SUMH'.HO(J)«EN(J.l) 

60  CONTINUE 

IF  (CONVG)  60  TO  81 
DLNT=  i  SUMS-SO  )  /CPS'JM 
T  L  N = T  u  .\'  -  D  l  N  T 

IF (olnt.lt.o.)  DLNT=-OLNT 
lF(f)LNT.LT.0.5E-*)  CONVGs.TRUE, 

SO  TO  51 
A1  TTT(N?T)=  TT 


FRZ^OOOO 

FRZ*0010 

FRZ*{}020 

FPZ*0030 

FRz*R040 

FrZ*005O 

FRZ°0060 

FRz«0070 

FRZ*r.O-0 

FRZ^OOqO 
FRZ»OlOO 
F’RZ^ollO 
FRZ*ftl20 
FRZ«0130 
FRZ«nl40 
FRZ°0l50 
FRZ°Ol 60 
FRZ»al70 
FRZ«nl90 
FRZ«OlPO 
FsZcR200 
FRZ*OciO 
FSZ*n220 

FRZ*0230 

FRZ®f)24n 

FRZ°0250 

FRZ«*0250 

rRZ**l270 

FrZ°0280 

FRZ“0290 

rRZ°r.300 

FSZ°n3lR 

FRZ»0320 

PRZ*033i> 

FR2*n340 

FRZ«0350 

FR2*fl36r, 

FRZ*037« 

F8?og3S0 

FRZ«0390 

FRZ»ft400 

FRZel41« 

FSZ«042C 

FRZ^OABO 

FRZ*A44;} 

FRZ*0450 

FRZ*04&0 

FRZ*'f}470 

FRZ*04R0 

FRZ«C-490 

FRZei)500 

FRZ*R510 

FRZ*n520 

FRZ«*a530 

FRZ*0540 

FRZ®0550 

FRZ°o560 

FRZ®R57n 

FRZ*o580 

FRZ*0590 


tJ’O  u 


SSUM(NPT)»  SSUM*1) 

MSUM<NPT)s«  TT*SUKh 

GAMMAS  (NPT )  *  CPSUm/  { CPSUM- 1  •  /X*i  (1)} 

IFCIP*GT*2)  go  To  90 

7HS0AT  CALCULATIONS 


DH  =  «S‘JM(1)«.',SUM(?) 

SHSTAS  s  0H-(G4MHAS{2)#TT/{2.»«Haj)  j 

OH  *  OHSTaR/Qh 

1*“  *D^»Lt*0kJ  DH=-0H 

lF(OK*L£*{5*4£-»4,GR.ITROT.eO»0>  GO  TO  90 

PCP(2i  *  PCP(2)/<l.*2,«QHSTAR*i(xUS/<TT*<8A»4XASt2)*3l.>>> 

•d?)  *  Pili/PCP'2} 

ITROT  a  ITROT-i 
GO  TO  45 

90  WM{NPT)s  WM( 1 ) 

PPP(NFT)  a  p(jp) 

CPR (NPT) a  cpsum 
K  *  0 

IP  <TT.lT.(Tlow-15o»>)SO  TO  903 
IF (NC*£Q»0)  GO  TO  700 
INC  =0 


301 

700 


903 

353 

865 

870 

9r«2 

1000 


DO  901  1*1 »NS 

IcCrUSrtn.go.o.OR.iuSEd)  ,£0#. 10090) 
INC  =  INC*1 

IF(£N(I*l),EO.g,)  GO  TO  90 
If  (TT,LTS  t INC* 1 ) -50 

CONTINUE 


GO  TO  901 


i  «0R#TT*S7.  iTE**UNC.2> 


If  i  I°.£O.NP)  GO  TO  663 
<  a  NPT 

IF  fNPY.NE.13)  go  TO  870 
GO  TO  863 
NPT  a  npT  -  j 
CALL  «KT0UT 

IF  (NSUs^NSUP.NE.O)  CALL  RATjO 
If  {K.EQ.6)  so  TO  1000 

*jpT  a  g 

NPT  *  NPT  «  l 

CONTINUE 

RETURN 


*50.)} 60  T0  903 


END 


faz*o$oc 

fRZ*fl6!0 
FPZ» 06Zfi 
fPZ#ft63o 
fftZ*fi660 

fi 

fPT®«6fcO 

Fft»?«ft67n 

rR2*fl6Pl) 

FR2*0690 

fPZ«.o7oo 

fPZ*07lo 

fRZ*0720 

ffiZ*fl?30 

fRZ*n740 

FRZ*n7S.j 

fRZ^OTfeO 

fRZ*«7?C 

FRZ*0/80 

FRZ*3790 

FRZ*(j8ofi 

FRZ®0810 

FRZ*o6?0 

FRZ*083r 

FRZ^C84f) 

fRZ*«5@50 

FRZ*0«fe0 

fRZ«ft870 

FRZ*0t?ee 

FRZ^OSqO 

fRZ«090fl 

FRZ*09ift 

FRZ*O9Z0 

FRZ*O930 

FSZ*094f, 

FRZ®095P 

f«Z*0«60 

FRZ*097O 

FRZ«09B0 

fRZ®099n 

fR2*100S 

FRZ*101O 


IfflOO  HI  li,.  O  X 


4  «8hOP,RMW(15)  ,TLN 

COMHON/OUPT/FMT (30)  ,FP(4)  .FT{4)  *FH{4)  *FS(4>  *FH(4)  .FV(4>  .FD<4) 

1  ,FC<45  ,FG<4)  .F6.FMT13.F1  »F2tF3*F4,F5.FL<45  .FMTI9.FA1 *FA2 

2  ,FR1,FC1  »FN{4)  *FS{4)  ,FA{4)  ,FI  {41  .FHTDX.FS 

equivalence  I ATOM n  *52) » aT£M) 

ATOMIC  SYMBOLS*  WEIGHTS*  AND  VALENCES 


DATA  ATOM/ 


block  data  blk*oooo 

3LK*0010 

DIMENSION  AT£M|3*5ft)  3LK*o020 

3L«''.r>010 

cOMM0N/misc/ENN*SUMN*TT*SO*ATOM{3*101) »LLMT(15) »b0(15) »80P{15.2)  BLKa004O 

1  ,TM,TLOWfTMIo,THIi5ri*PP*CPSUM,OF,EQRAT,FPCT,R,RR,HSUBo*AC(2)  ,AK(2) 3lK*gO£o 

2  tMP?<2) *RHO(2) .yMTNCS) «VPLS{2) *WP{2> ,DATA{22) »NaME(15»5)  3lK*0O6O 

3  ,anUM<15,5) *P£CWT(15) *£NTH{IS>  *FAZ CIS) *RTEMPCI5) »F0X(15) >0£NSClSl 3LK*0070 

4  *RH0P,RMW(!S) ,TLN  3lK»o050 

COMMON/OUPT/FMTC30) ,FP(4) *FT{4) *FH{4) *FSC4) »FM(4) *FV{4>  .FDU)  BLK°O09fi 

1  *FCU)  «Ffi(4)  ,FB*FMT13*F1  *F2tF3*F4»F5*FL{45  *FMTI9*FA1  *FA2  3LF>OlOO 

2  ,FRl*FCl.FN{41*FS{4)fFA{4)tFI{41*FMT';x»F0  BLK«OllO 

BLK»nl20 

EQUIVALENCE  I  ATOM  n  *52)  *  aT£M)  3LK°f)!30 

3LK»ol4n 

rOMlC  SYMBOLS*  WEIGHTS*  AND  VALENCES  3LK*ol50 

3LK°0l60 

DATA  ATOM/  BLK»ol70 

A  2hm  <*  1»007^T*  !•»  2HHE*  4.0026*  0«*  2HLI*  6.939  *  1»*  3LK»olrO 

fi  2HSE*  9.0122  *  2.*  2H8  *  10.811  »  3,j  2hc  ♦  12.01115,  4.,  8L*°0l90 

C  2HN  ,  14.0067  ,  3* *  2«0  ,  15.9594, .2.,  ?HF  ,  18.9984  ,-l.t  3l*°o200 

D  2hn£*  20*183  *  0*»  2HNA*  22*9698*  !•*  2HMG,  24.312  •  2»*  3lK®0210 

E  2HAL*  26.c»8l5  *  3.,  2hSI*  28,086  •  4.,  2hP  •  30.9738  ,  5.*  3L**ft220 

r  2hS  ,  32*c64  *  4«,  2HCL,  35.453  «»1*.  2HAR,  39.948  ,  0«*  SLK»o230 

6  HHK  ,  39.102  *  i.*  2HCA*  40,080  »  2»*  2HSC.  44.956  *  3.*  3L**n240 

H  2HTI,  47.900  .  4.,  ?HV  ,  50.942  •  5.,  2HCR,  51*996  ,  3*.  3LKfi025o 

I  pHMn,  54.9380  ♦  2**  2HFE*  55.847  *  3.*  2HC0*  58.9332  *  2«*  3lK*o?6o 

j  2HNI,  58.710  »  2.*  2HCU*  63,540  »  2.,  2HZN.  65.370  *  2.*  3LK»0270 

K  2H6A,  69.720  ,  3.,  2KGE,  72.590  ,  4.*  2HAS,  74,9216  .  3.*  BLK*o280 

L  2HS£.  78*940  «  »•*  2HBR*  79.9C-9  *»1.*  2HKR*  83.800  »  0«»  3LKttt)29c 

M  2HR 85.47  ,  !.»  2HSR,  87,620  *  2.*  2HY  t  8R.905  *  3.*  3lK*0300 

N  2HZR.  81.220  ,  4*,  £HN3t  92.906  .  5.,  2HM0,  95.94  ,  6.,  3LK*n3l0 

0  2mTC»  99. COO  *  7.*  2HRU.jOi.070  »  3.*  PHRH.1O3.9O5  *  3»*  3L**03pO 

P  2HPD.lo6.400  .  2,*  2HA&tio7.B7o  *  1,;  2HCD.112.400  ,  2.,  3LX*o33n 

Q  -3HIn.ji4.826  •  3« *  2hSm*113*67o  r  4.*  2HSB.l2i.75o  »  3.  /3LK*o34o 

DA"!  h  ATtH/  3LN«6350 

R  2HTE,127.6o6  ,  4.,  ,126. 9044, -J.,  2HXE.13l.300  ,  0.*  3lK*0360 

5  2hCS*132.9q5  »  1*«  j'HBA, 137,3*0  *  2«*  PHLA.j3R.9io  *  3»*  3LX*037ft 

T  2HCE.U0.i20  *  3.*  2MPR*140.907  *  3.,  2KNQ, 144,240  ,  3.t  3LK»03S0 

U  2HPM, 145.000  ,  3.,  ?PSM, 150.350  *  3.,  2HEU.15l.960  *  3.,  3LK*n3an 

V  2*60,1^7.250  ♦  3.1  2HT8»*j58.924  *  3»*  2HDY, 162.500  ,  3.*  BL*o0400 

W  2HH0.164.93R  ,  3.,  2HtR.167.26o  .  3.,  2HTM,  168.934  ,  3.<  3lK*oAjo 

X  2*73*  173, Q4o  »  3.*  ?HL’J*l74.997  *  3.*  2HHF.J78.490  ♦  4,»  3LK»r.4P0 

Y  2h?a.180*948  *  5*.  2HW  *187.850  ,  6.,  2hSE*185,200  *  7»,  3LK*fl430 

Z  PHOS, 190.200  *  4.,  2HIR.192.200  *  4.,  2HPT.196.09O  *  4.*  3LK*ft440 

2MAUv  196.567  »  3»*  2HHG.200.590  *  2*»  2HTL*204*370  •  1.*  3»_K*0450 

2HPB.2o7.19C,  *  2.*  2HBI, 208,980  »  3.,  2HPO.2lC.000  »  2.,  3LK*046fl 

2«4T,210.0o6  »  0**  2M8N*222«000  »  0.*  2HFR,223*0GO  »  1*»  3L**fl47o 

2.*Ra, 226.00.6  *  2.*  PHAC.227.00?  *  3.*  ?HTH,23?.038  ,  4..  3LK*04Rfl 

2HPA,231,000  *  5.,  2HU  ,238. g30  ,  6.,  SHUP.237.0OO  ,  5.,  3LK«o49n 

2H?U,242.000  ♦  4.,  2HAM*243.000  ♦  3«*  2HCM.247.000  *  3.,  3LK»0500 

2H3k,249.oo6  ,  3,,  2HCF.251.00C  »  3.,  2«.£S, 254,000  •  0.*  3LK*o5lo 

2*rM*253»C00  *  S*»  2HMV, 256.000  *  0,/  3t**f5520 

information  used  in  variable  output  format  3lk°o54C. 


2Hh  , 
2HSE 
2HN 

2hne 

2HAL 

pHS 

2HK 

2HTI 

PHMN 

2HNI 

2*6* 

2HS£ 

2HR*? 

2HZR 

2«Tc 

2HPD 

■^hIn 


1*007^7 
9.0122 
14.0067 
20*183 
26.q8l5 
32*064 
39.102 
47.900 
54.9380 
58.710 
69.720 
78.966 
85.47 
91 .220 
99. COO 
106.400 
114.826 


31*  »2h,£*  *2h3*  ,2h4* 


2HHE,  4.0026 
2MB  *  10.811 
?HO  ,  15.9594 
2HNA*  22*9698 
2HSI,  28.086 
2HCL,  35.453 
2HCA*  40,080 
2«V  ,  50.942 
jHFE*  55*847 
2HCU*  63,540 
2HGE,  72.590 
2«BR,  79.909 
2HSR*  87.6^0 
<HNB*  92.906 
jHRU.jOi .070 
2HA5.io7.B7o 

2'HSN,i  i3*6?o 

DA'S  ATtH/  3LN«G350 

R  2HTE,127.6o6  .  4.,  *126. 9044, -J.,  2HXE.13l.300  ,  0.*  3lK«o360 

5  2HCS* 132.9q5  »  1*«  2*3^*137,340  *  3.*  ?HLA»i38.9io  *  3»*  3LX*037ft 

T  2HCE.U0.120  *  3.f  2MPR,l40.g07  *  3,*  2HND*144,240  ,  3.t  3LK»03S0 

U  2HPM, 145.000  .  3.,  ?PSM, 150.350  ,  3.,  2HEU.15l.960  «  3.,  3LK*n3an 

V  2HG0, 1^7.250  ,  3.*  2HT8.158.924  *  3,»  2HQY, 162.500  ,  3.*  3LXo0400 

W  2HH0.164.930  ,  3.,  2HtR.167.26o  .  3.,  2HTM, 168.934  ,  3.*  3lK*o4io 

X  2*78, 173, 040  ,  3.*  ?HL’J*l74.997  *  3.*  2HHF.J78.490  ♦  4,»  3LX»ri4Pft 

Y  2m7a, 180*948  *  5*.  2KW  *187.850  *  6.,  2mSE*185*200  *  7»*  3LK*fl430 

Z  PHGS, 190.200  *  4.,  2HIR.192.200  »  4.,  2HPT.196.090  *  4.,  3LK*ft440 

2 r«Au,  196*967  *  3*»  2hM5»p00*59O  *  2*»  2HTL»204»370  •  1.*  3»_K*0450 

2HPS, 297.190  .  2.*  2HBI, 208,980  »  3.,  2HPO.2lC.000  *  2.,  3LK*O660 

2«at, 2ie* 00-6  »  0*»  2HRN,P22«000  »  0.*  2HFR,223*0GO  »  1»*  3l**o47o 

2hRa.226.0O9  *  2.*  PHAC.227.00?  *  3,.  2HTH.232.038  ,  4*.  3LK«04on 

2HPA, 231,000  ,  5.,  2HU  ,238. g30  »  6.,  2HUP.237.000  *  5.,  3LK«o<*9r, 

2HPU.242.000  ♦  4.,  2rtAM*243.000  *  3«*  7HCM.247.000  *  3.»  3LK<>0500 

2H3k,249,000  ,  3,,  2HCF.251.00C  »  3.,  2*. £S, 254, 000  •  0.*  3LK»o5l? 

2HrM.253.C00  t  S.«  2HMV»256.oOO  *  0*/  3tX»062O 

information  used  in  variable  output  format  3lx*o54g 

3LK*o55fl 

DATA  FHf/3HllK*4h»3A4.4H* a2»«3HF9*»1H  ,3HF9.»1H  .3HF9..1H  ,3HF9. » 13LK«0S60 
JH  »3hF9*,I'H  ,3HF9.,1H  .3HF9..1H  ,3HF9.,JH  r3HFV,.lH  .3HF9..1H  ,3HFBlK»o570 
2S*tln  »3HF9**1 m  *3HFa.*lH  , \H5 /»  FB*F0*FI ,F2*F3*F4,F6/1H  »2H0 * *2H3lX®0580 


6.939 

12.01115 

18.9984 

26*312 

30.9738 

39.948 

44.956 

51.996 

58.9332 

65.370 

74,9216 

83.800 

8R.905 

95.94 

102.905 

112.400 

121*750 

131.300 

138*910 

144,240 

151.960 

162.500 

168.934 

178.490 

186.200 

196.090 

204*370 

21C.000 

223*000 

232.038 

237.000 

247.000 

254,000 


>j  variable  output  format  3l**oB4g 

3LK*o55fl 

3A4.4H*  a2»  «3HF9*  » iH  ,3HF9.»1H  ,3HF9,.1H  ,3HF9. » 13LK«ft560 
,1H  .3HF9..1H  ,3HF9», JH  r3HFV,.lH  .3HF9..1H  ,3HF3lK»o570 


?H5,/jFMT13/2Hi3/,FMT9X/3H9X»/,FMTlo/3Hl9t/ 


3LX*0=5G 


uuu 


I^»£g&^^g^g^g3^sq^4g?gafef^esj5*^ 


112 

OATa  FP/4KP#  A»4HTH  «2H  :*iH  / 

1  * FT/4H7 •  D*4«E6  K.4H  »2H  /*FH/4HH»  C»4HAL/S*2H  *lM  / 

2.FS/4H3,  Ct4HAL/UAHS)  (K»2Hj  /,FH/4HM,  M»4*0L,  W*2HT  ,1H  / 
3»FV/4HU5LV»*H/0LP«*H)T  ,2h  /»F0/*H{0LV»*p/0i.T»2H)P«lM  / 

4«FC/*«CPt  •4hCAL/*4H16M»?MK}/*FS/4HGAHM»4«A  (S»2H>  »1H  / 
S,FL/4HS0N  ,*HV£L»*4H?VS£»2HC  / 

INFORMATION  US£C  IN  PERFORMANCE  output 

DaT4  FR1/4HPC/P/*  FCl^ZHCF/*  FN/4HMACH*4H  NUM*4H8ER  *iH  / 
ltFR/*f<CSTAs4HR*.  F*4hT/3E*2HC  /*FI/4hI»  L»4HB-SE»4hC/L8*1H  ✓ 
2»FA/4HIVAC,4H4L8-,*HSEC/f2HLB  /*FAj/4HAE/A/»FA2/lHT/ 

E\0 


BLK*f»6no 

■3LK*0610 

BLK«'fl620 

BLK*0630 

BLK*A640 

BLK«o650 

BlK*06S0 

3UK*0670 

BLK*06«o 

8UM*|)6Qn 

8lK#0700 

8LK*o710 

BLK*0720 


113 


\ 


! 


APPENDIX  VI 1  -  t ‘.STING  OF  THERMO  DATA 

1  I 


! 


l 


THEPMO 
300.000 
ALCS) 

0. 

0. 

-0.44923993? 

AL(L) 

0.38185052? 

-0.96116344? 

0. 

AL 

0.25450650? 

0.38498957? 

-9.154577696 

AL* 

0.25138516? 
0.10559676? 
-0.9791834 0£ 
ALB02 

Q.71722995E 
-0.6768353 2E 
0.10251324? 
ALCL 

0.437543356 

-0.69830U2E 

0.44387437E 

ALCL* 

0.43738449E 

0.10231686E 

3.43882415? 

ALCLF 

0.64598361? 

-0.62463694? 

0.93919221E 

ALCLP2 

0.89238843? 

-0.12259084? 

0.13307895E 

ALCL? 

0.66933063E 

-0.39336262E 

0.10272735E 

ALCL?* 

0.717*7688? 

0.531089556 

0.11000908E 
ALCL 2- 
0.66786684? 
-0.42352515? 

0.10586258? 
ALCL2P 
0.91851571? 
— 0.97369793E 
0.14983444? 
ALCL  3 

0.9398?93«6 
-0.732nXi.76E 
0.16713939? 
ALCL3  (S> 

0. 

0. 

0.1490407??. 
ALCL 3 (LI 


1000.000  5000. 

JS2/65AL 

0. 

0. 

-08  0.39348536E 
J12/65AL 

01  0. 

02-0.17518952? 

0. 

J12/65AL 
01-0. 75157512E 
05  0.53100256E 
-09  0.43155442E 
J  6/65AL 
01 -0.290 7 7490 E 
06  0.37023323? 
-11  0.33894328? 
J  6/66AL 
01  0.29780741E 
05-0. 99949242? 
— 07-3 .1694 1283E- 
J  9/64AL 
01  0.18702767? 
04  0.23323888? 
-08-0. 11170E43E 
J  6/6SAL 
01  0.19205255E 
06  0.31157190c 
-08-0.11166597? 
J  9/64AL 
01  O.S993027XE 
05-0 • 33724191 E 
-08-0.20431534? 
J  5/64AL 
01  0.11946919E 
C6-0.158V5099E 
-07— 0. 26426994 E 
J  9/64AI 
01  G.33723174E 
05-0.38121508? 
-07-0.26027172? 
J  E/EfiAL 
01  0.3.758442? 
nc-a. 95351513? 
-07-0.28333967? 
J  6/68AL 
01  0.35805649? 
05-0.44184290? 
-07-0.26976715? 
J  5/f.4AL 
01  0.90569395? 
05-0.15£2c?27E 
-07-0.34108047? 
J  3/64AL 
01  0.67170780? 
05-0.16564590? 
-07-0.414525756 
J  3/64AL 

0. 

0. 

-06-0.71371474? 
J  3/64AL 


000  FIRST 

10  00  00  OS 

0. 

0.22258601?  01 
-1 1-0. 77250 U39?  03- 
13  09  00  OL 

0. 

02  0.38185052?  01 
-0.96116844E  02- 
100  000  000  OG 

-94  0.48674178F-07- 
01  0.27964983?  01- 
-12  0.38456100?  95 
1?  -100  000  OG 

-04  0. 2060430  8?-07« 
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0.7056/0056-10-0 .493353606-14 
0.405355456-02-0.893192396-05 
0.263266956  01 

300.000  5G03.090 

0.6/ 09 74 cl?- 10-0. 4 6621 5 3??- 14 
3.239494MF-07  0.4016/391F-05 
0.5*5/37166  01 

360.000  315.000 

0.  0. 

0.60 2 40 35 /F- 01-0 .819334 /IF- 04 
3.20*=2632E  02 

815.000  5000.000 

0.  0. 

0.  0. 

S. -52113446  02 

300.000  5000.000 


0.606/53726  01  0 .193252236-02-0.645261256-06  0.1?G?6:S7?E-0:»-0.83QH3J47E-14 
-C. 963910086  05-0. /8/01494F.  61  0.3654383--C  oi  0.88243//6?-02-0.88131513c-05 
0.3377Qi5f?-08-0.906ie45iF-12-0. 55770*606  05  0.425*110/6  01 
P6H  J  3/6396  1H  100  360  f.G  300.500  5000.000 

0.3057021*5  PI  0.  149772236-72-0. 55.37(f96?E-0c  0.1026 03l?6-t°-0. 691669796-14 
_ib576y»51?n  G5  0.338/i0526  01  i. 37312305E  31-0.1914354*6-02  0 .4 *91 0325E- 05 

z 

3 


1 

2 

3 
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-0.329255S3ETC8  0.66638562E-12  0.375655635  05  3.375438955  00 
PFH*  J  9/66BE  1H  IE  -100  03  300*000  5000. 000 

0.29015992E  Oi  0.1675 1761 €-02-0 .66*055075-06  0<.1?5109<=1F-09-0. 817414665-14 
0»lr316S!2E  06  0.35425415E  Oi  0.37095>12E  O1-0.1--*c2O315-Q2  0.3622S769E-Q5 
—0.1 353327 1E-0 8  0.171732645-12  8.13802*665  06-0.295984075  00 
8EK  J  6/635E  IN  100  000  OG  300.000  5000.000 

0.37*559375  oi  0. 523!6575E-03-0.327ilft02E-06  0.6155:l*!'tE-10-0.fc2609041E-l<* 
0.500S6130E  05  0.30924I94E  01  0.316842*65  01  D.10?*24*-*E-n;?  0.273760175-05 
-0.434313995-08  0. 17524453E-11  0.5031045ir  05  0.66U93591E  01 
8E0(S)  J  9/63B5  10  100  000  OS  300.000  2620,000 

3.331304505  Oi  0.559172125-02-0. 463012715-05  D.I9108779E-08-C. 278430475-12 
-0.734515535  05-G.  1930*2235  02-0. 197233*. *5  01  0.247£4354E-01-0.314983305-0* 
0. 19540 0315-07-0 » 492163195-1 1-0 • 72270 06®E  05  0.678531195  01 
CECIL)  J  9/6335  10  100  000  OL  2820.000  5000.000 

0.80512*675  01  0.  0.  0.  0. 

-0.712981685  05-0.469723465  02  0.  0.  0. 

0.  0»  0.  0. 

CEO  J  9/63B5  10  100  000  OG  300.000  5000.000 

0.350485495  01  0. 108578845-02-0. 43390377F-06  0.82068967E-10-0.56r/8800E-l«i 
0.14435010E  05  0.331673475  01  0.35250620E  01-0.130442*15-02  0.628382375-05 
-0.636749765-08  0.209118495-11  0.145621925  05  0.3*3214665  01 
CECH  J  C/E39E  10  1 H  100  OG  300.000  5000.000 

C.36351960E  01  0. 285324365-02-0. 10230326E-05  0.1 7069994E-09-0 .10840994E-13 
-0.13856067E  05  0.512562945  01  0.372703565  91-0.34554824E-03  0.82188520E-05 
-0.92269046E-05  P.325-1 93025-11-0. 137322725  05  0.533994045  01 
CECH*  J  6/68B5  10  1H  IF  -1 G  300.000  5000.000 

0.375493355  01  0.334355335-02-0. 125052635-t 5  0.215968275-09-0.141147785-13 
0.96194409E  05  C.140S7049E  01  0.24619220E  Cl  0.369779845-02  0.594465615-05 
— 0.10392932E— 07  0.43237733E-1 1  0.96393753E  C5  0.8*3415835  01 
6E02H2  J  3/67BE  10  2H  200  OG  300.000  5000.000 

0.648432315  01  0.583883395-02-0.213392035-05  0.376tc2435-09-0 .245689345-13 
-0.81124230c  05-0.936601145  91  0.24681022E  01  0.1*7125145-01-0.166555365-04 
0.6275215SE-03-0.30c57f37E-12-0. *01371 35E  05  0.19*654175  02 
8E20  J  9/63BE  20  100  000  OG  300. ono  5000.000 

0.54549734E  01  0.219703855-02-0.929195785-06  0«I?4564105-09-0.12139932E-l3 
-0.94958985E  04-0.562358695  01  0.275278975  Oi  0.896436695-02-0.555592475-05 
— 0.34769 18 8E-09  0.110154725-11-0.  871747095  04  0.84387556E  01 
£520*2  J  6/66BE  20  IF  200  03  300.000  5000.009 

0. 1031134 3E  02  0.29258151E-02-0.12481987E-05  0.236521695-09-0. 1655«16GE-13 
-0.14344623E  06-0. 245C08465  02  0.48600026E  01  0. 194389825-01-0. 1S81876CF-04 
0. 71009503E-08-0.37225258F-1 2-0. 1470 395°E  06  0.322*57945  01 
8F202  J  9/63«E  20  200  000  OG  300.000  5000.000 

0.717336526  01  0.30796926F-C2-0. 13162273E-05  0.24970614E-09-0. 171,963396-13 
-0.519*48765  05-0.12938753E  02  0.1710273«E  01  0.1*24493«E-fli-0. 143772535-04 
0-212688165-06  P. 146919935-11-0. 505123665  05  0.15201347E  02 
PE303  J  5/63BE  30  300  Ono  OG  300.000  5000.000 

0.91507322E  01  0. 73623701E-02-0. 31?9272°F-!)5.  0.5916?569E--9Q~0. 413601945-13 
-0.130313495  06-0.23330043F  02  0.200026925  01  0.200 051*25-01  0.57517S47E-06 
-0.17  052805E-07  0.  84? 627*55--.  1-0. 126^636 7E  06  0.156077905  02 
9F404  J  9/63BE  40  400  000  OG  390.000  50C0.009 

0.14547030E  02  0. 31502730F-02-G. 351627*95-05  0 .56923457E-0«-0 .47005963E-13 
-0.197043455  06-0.51509929E  02-9.133134335  0«  0.523*482*5-01-0.40*930185-94 
C.47 37470 7E-08  0.499541645-11-0.192783566  06  0.393=99035  02 
CfS)  J  3/61C  13  00  00  OS  300.000  5000.000 

0.136049425  01  0.191P2237E-92-G.84C4038«5-Gc  0.164437275-09-9.1 1672670F-I’* 
-0.55 71337 OF  03-0. 80C70207F  01-0.447740535  00  0.5^So1ga2E-02-0. 397755715-06 
-0.4045<»296E-C8  0.211349395-11-0.942896**5  02  0.16340751E  01 
C  J  3/61C  100  000  COO  OG  300.000  5000.000 

0.25310663E  Cl-O.  14656202E-03  0.  .*43880*45-07-0. 794*10705-11  0 .59900577E- 16 
0.852152945  05  0.431288795  01  0.2532*70c5  01-0.15**76415-03  0.30682082E-06 
-0.26770 064E -09  P.8748C827F-13  0.852404225  05  U.460627/4E  01 
C*  L12/6EC  IE  -100  00  *3  OG  309. OPO  -S&ng.goo 

0.251182745  01-0.J7355734E-04  0. 950426765-0 9- 0. 221 *8518£-1 1  9 . 18621B92F- 1 5 
C.21c5772iE  06  0.42*6129*5  01  0. 25953*405  Gl-0.406*ff 4=5-03  0 , E 30236695- 06 
-0.526643785-09  0. 150833775-1 ?  0.216667815  06  0.3*95729*5  PI 
e-  .  ..  .  J  9/65C  IE  100  OOO  OG  300.CCC  5000.000 

I 
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0.24473591F  01  0.112<*e4?85-a3-0.7ft99146  2F-07  0.1°77R614E-10-Q.11105555F-14 
Q.6997?96°6  Q5  0.4236£99?£  01  0. 2492564  06  01  0.531630f3E-Q4-0. 133079946-06 
0.1 3951 3/ 96-09- 0.52 15 09926-1 3  0.c9955757£  05  0.398116576  01 
CCL  J  3/61C  1CU  100  000  0G  300.000  5000.000 

0.414163636  01  0. *.0535 002E -0  3-0 .164390276-06  0.30720269£-i0-0. 211887456-14 
9.&51036616  05  0.315123216  01  0.321576R0E  01  9. 285357686-02-0. 189fr641BE-05 
-0.345011026-09  0.543592526-1?  0.6535435B6  05  0.797400166  01 
CCL2  J  3/65C  1C1_  200  000  OG  300.000  5000.000 

0.6103R747E  01  0. 9P444553E-03-0. 420741896-06  0.795 P&539E-10-0 .55531496E- 14 
0.397121886  05-0.340666616  01'  0.33799227E  01  0.94958393E-02-0. 956635526-05 
0.345268336-03-0. 206334336-13  0.36333677-  u5  0.103474636  02 
CCL3  J12/67C  1CU  30  00  OG  300.000  5000.000 

0.890531506  01  0.122169516-02-0.5293116*5-06  0.101318246-09-0. 714374846-14 
0.64579494E  04-0. 15547647F  02  0.3'*933250E  01  0.21969101E-G1-9. 300906666-04 
0. 185622056-07-0. 41715R84E-11  0.76531R95E  04  0.11422041E  02 
CCL4  J  37E1C  1CL  400  900  OG  300.000  5009.000 

0.1154520  OE  02  0. 16301810E-02-0. 7089311 IE-06  0.13620159E-09-0.9635C049E-14 
-0.16636475E  05-0.29756=626  02  0.43356351E  01  0. 236831166-01-0. 339399Z9E-04 
0.237460916-07— 0.523763426-11-0. 153200336  05  0.55306579E  01 
CF  J12/67C  IF  10  00  OG  300. 0G0  5000.000 

0.368696796  01  0.91143491F-03-0. 36463655E-06  0.67482B54E-10-0.45269596E-14 
0.284716666  05  0.415134686  01  0.34655143F  01-0.83779305E-03  0 .5578476SE-05 
-0. 64582987^-08  0.22988248E-11  0.236491396  05  0.536819166  01 
CF2  J  -5/cEC  IF  200  000  OG  300.000  5000.000 

0.52340 198E  01  C. 207166376-02-0. 553454336-96  0.21057379E-0°-0 .156898396-13 
-0.225003956  05-G. 19695061E  01  0.27241917E  01  0. 749804416-02-0 , 216057636- 05 
— 0.40265153E— 01  0.24e2E929E-ll-0.21752025E  05  0.11318173E  02 
CF3  J  9/64C  IF  300  000  OG  300. Ono  5000.000 

0.7*  55020 OE  01  0. 3 096 0154 6-0 2-0. 13 23 163 5E-9 5  0.25123920E-09-0 .176253336-13 
— 0.6085430 5E  05-3. 11141522E  02  0.23610322E  01  0.1595°621E-01-0.11811474E-04 
0.11443435E-08  0. 1470507SE-11-0.59S34051E  05  0.136E5263E  02 
CF4  J  9/E4C  IF  400  000  03  300.000  5000.000 

0.91592519E  01  0.420S3641E-02-0. 180389736-05  0. 343027376-09-0. 240R2193E-13 
-0.11442302E  06-0. 23264057E  02  0.11839609E  01  0.27053319E-01-0 .23009336E-04 
0.52469999E-08  0. 14077342E-1 1-0. 1123190 8£  06  0.17592463E  02 
CH  J12/67C  IK  10  00  OG  300.000  5000.000 

0.226731165  01  0. 22G43000E-02-0.62250191E-06  0.696«9940E-10-0.21274952E-14 
0.703330376  05  0.376263526  91  0.35632752E  0 1-0.200 31372E-03-0 .40129814E- 06 
0. 132269226-03-0. 867E3311E-12  0.70405506E  95  9.17628023E  01 
CH2  J12/62C  lrt  200  000  03  300.000  5000.000 

0.27710460E  01  0.40693659E-02-0. 14683*.70E-05  0.24562095E-09-0.15593090E-13 
0.467872155  05  0.478482036  01  0.26350905E  01  0.36051519F-02  0.79977137E-G6 
-0.27242167E-03  0.12361°59E-11  0.46841314E  05  0.533576016  01 
CH3  J12/62C  1H  300  000  OG  300.000  5000.000 

0.26916371E  01  0.63035521E— 32-0.260334776-0*;  0.49775393E-09-0 .30236995F . 13 
0.14918942E  05  0.5?2?5?loE  01  0.33{-79R3«E  01  3.19*»0°?41E-02  0.649*24116-05 
-0.63603524E-08  0. 17971111E-11  0.149253205  06  0.30286042F  01 
CK4  J  3/61C  1H  400  000  OG  300.000  5000.000 

0.150270725  01  0.104167986-01-0.391319225-05  0.577773=96-09-0.442377066-1? 
-0.997370735  04  0.107C7143F  02  0.332519325  01-0.397C4*;aiH-!j?  0. 245583406-04 
-0.22732926E-07  0 . 69626=5  76-1 1-0. 1  <i  14  J.-"*:  dE  05  0.866900735  00 
CN  J12/66C  IN  100  000  OG  300.000  5000.000 

0.36090 7a  45  Cl  0. '*33458616-03  0.  1*. 255732E-C £- 0. 169  70505£-l 0-0 . 30 100833F- 15 
0.54681 6255  05  0-353694086  01  P. 27313064c  01-0.135?5137£-n2  0.45586474E-05 
-0.295322296-03  0.560205336-12  S. 547941525  05  0.?4V=1Q7?f  01 
CN-  L  3/67C  IN  IF  100  OG  300.000  5000.000 

0.253144175  01  0.149426136-02-0.532616506-06  0. 134441 856-09-0 . 700917276- 14 
0.322778965  04  0.62544561E  01  0.369342345  Ul-9. 15269=186-02  3.34403627E-05 
- 0.1 7 437 24 56-0 R  0.  12144973E-12  0.3H64Q96E  04  0 .2395 r., :93c  01 
CN2  J  6766C  IN  200  000  OG  300.000  6000.000 

0.4820=0776  01  0.247600146-02-0. 546441096-06  0 .16543764E-0°-Q . 1 039=1 ?°F- 1 3 
0.636899425  05-0 . 4.34 £ 4 03 96  00  0.350777795  01  0.7?n??963r-02-9. 755745896-05 
0.429792175-03-0.948679356-12  0.639942316.05  0.602349646  01 
CO  J  9/65C  10  100  000  OG  300.000  5000. GOO 

0.29.3406965  01  0. 14 e9 1390 6-0 2- 0.57  3996R  4F-06  0. 19?C4C 77=-0°-0 . F9?53550t -  14 
-0.14245?2*r  05  0. 6’4751966  01  0.3710092R5  01-0.161606645-02  9.369236  046-05 
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-0.20319674Fr08  0.23°533446-12-0. 143563! 06  05  0.29556251F  01 
CCCL  J12/ecC  10  1CL  100  06  300.000  5000.000 

0.54291236E  01  0.161215356-02-0.660062306-06  0.12127ll4E-0°-0.B2358601F-14 
—0.933050076  04  0.369710166  00  0.42363797E  01  0.50*689806-02-0.50/294116-05 
0.29E479S3E-03-0.77062463E-12-0..90125212E  04  0.623*0?0»F  01 
C0CL2  J  6/61C  10  1CL  200  OG  300.000  5000.000 

0.773100326  01  0.240eS287E-02-0. 101111335-05  0. 189262146-09-0. 1313936EF-1? 
-0.29136566E  05-0. 11221F74F  02  0.311561395  01  0.1 94 736/46-01-0 .224205446-04 
0.128681846-07-0. 273608455-11-0 .230433846  05  0.117552996  02 
CCF  J12/E5C  10  IF  100  03  300.000  5000.000 

0.489302146  01  0.221797036-02-0.925507256-06  0.172701206-09-0. 11^553436-13 
-0.223579346  05  0.979620876  00  0.320197276  01  0. 558377706-02-0. 14905481E-05 
-0.231260*96-08  0. 13614353E-1 1-0. 21817043E  05  0.10047576F  02 
CCF2  J  3/65C  10  IF  200  OG  300.000  5000.000 

0 .656515275  01  0.36511407E-02-0. 15332311F-05  0.237209436-00-0 .199302656-13 
-0.7331891 2E  05-0. 31745223E  01  0.17992132E  01  0.1657F8276-01-0. 125298936-04 
0. 19 83462 4E-08  0.11147231E-11-0.77502762E  05  0.16465950E  02 
COS  J  3/61C  10  IS  100  OG  300.000  5000.000 

0.5239200 OE  01  0.24100584E-C2-0. 960645225-06  0.1777B347E-09-0.12235704E-13 
-0.184S0455E  05-0.30510517E  01  0.24625321E  01  0.119479926-01-0.137943706-04 
0.80707736E-08-0. 183 2 7653E-1 1-0. 1 7 80 398 7E  05  0.10792556E  02 
C02  J  2/65C  10  200  000  OG  300.000  5000.000 

0.446080416  01  0.305S1719F-02-0. 123925716-05  0. 227413256-09-0. 15525954E- 13 
—0.439614426  05-0.986359826  00  0.24u077<?7E  01  0.87350957E-02-0 .66070878E-05 
0.20 02136 lE-00  0.63274039E-15-0.48377527E  05  0.96951457E  01 
C02-  J12/66C  10  2E  100  03  300.000  5000.000 

0.4545464 OE  01  0.263543166-02-0.109287326-05  G.?D454421E-n9-0. 141845426-13 
-0.547619666  05  0.18217369E  01  0.347437375  01  0.1*9132055-02  0.73533503E-05 
— 0.9955425SE-08  0. 36846719E-ll-0.5424904«5  05  0.8332432QE  01 
CP  J  6/62C  IP  100  000  OG  300.000  5000.030 

Q.37436112E  01  0. S3S11456E-03-0. 3411621 6E-06  0.637758636-10-0.440946305-14 
0.5496<'175€  05  0.423055836  01  0.323858676  01  0.517543S7E-03  0.356573R9E-05 
-0.489859366-08  0.18766551E-11  0.551965656  05  0.727G12796  01 
CS  J12/62C  IS  100  000  OG  300.000  5000.000 

0.36942533E  01  0. 890862746-03-0. 366000446-06  0.6377317oE-10-!).47BlD000E-14 
0.26452213c  05  0.32176032F  01  0.33093030E  01  0.2*164439E-04  0 .44317674E- 05 
-0.552538956-08  0.20392463E-11  0.266539866  05  0.626427076  01 
CS2  J  6/61C  IS  20  00  OG  300. OCO  5000.000 

0.59867719E  01  0.163944366-02-0.683848455-06  0.123360506-09-0 .89167448E- 14 
0.1204335 OE  05-0.63993223 E  01  0.3214423*6  01  0.104430466-01-0.110629896-04 
0.529676626-08-0.830226956-12  0.127453746  05  0.761?57656  01 
C2  J  9/61C  200  000  000  OG  300.000  5000.000 
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0.25769524E 

0.19335912E 

-0.23035312?- 

Kh3 

0.2415517  7£ 
— 0.64747 177£ 
-Q.83833385E- 
KO 

0.3139000CE 
C. 93233290c 
-0.oll3E316.E- 
NO* 

0.28335488? 
0.1 I8i°2 *5E 
-0.48227472E 
KOCL 

0.54195723? 

0.441M536? 


01  0.36485240F- 
05  0 . ?7l 8  8874E 
08-0. 7231S964E- 
J12/65M3 
01  0.17231F64E* 
05-0.26784367E 
07-0.685769616- 
J12/65HG 

01  0. 

05-0.33362761E 

0. 

J12/65H3 
01  0.54784296?- 
03  0.31020930E 
09  0. 2778 ?023£- 
J  6/67HG 
01  0.25311369E- 
05  0.2591 8925E 
08  0.94723703E- 
J  F/6PM3 
01  0.22877007E- 
05-0.18812567E 
08-0.10182671E- 
J  6/67HG 
01  0.49270374E- 
05-0.10591697? 
-08-0. 1086  748  7E- 
J  3/61N 

01  0.10661453E 
05  0.444S7531E 
•10  0.20555044E- 
J  6/65N 

01  0.744C5961E 
05  0.34570237E 
•08  0.13504454E- 
J  3/64N 

01  0.14102822E 
04-0.34469259E 
•08  0.71245F47E 
J  3/64N 

01  0.22473715? 
05-0. 15632431E 
■07-0. 13556121E- 
J12/65N 

01  C. 13179293? 
05  0.57923234E 
-08-0.95757S40E 
J12/65N 

01  0.35896090? 
05  0.79074390? 
•05  0.39C22337- 
J  5765N 

01  0.61871211? 
04  0.77043432F 
•08  0.27255092E 
J  6/63N 

01  0. 13332231? 
04  0.6745812SF 
■03  0. 15915076F 
J  6/66M 

01  0. 1521 7119E 
06  0.70027197F 
■09-C.?7d4790oE 
J12/6EM 

01  0.13136694? 

04-0.19163566F 


-03-0. 1 299573 OE— 
01  0 .2839454  9? 
-12  0.3^681053? 
10  100  0Q0 

-02-0.90268818?- 

02  0.47740339E 
-11— 0.73154226? 
10  100  000 

0. 

02  0. 

0. 

10  100  000 

-03-0. 1970475 RE- 
01  0.28442075E 
-12-0.4977751 IE 
10  1H  100 

-02—0.91337733?— 
00  0.16842602E 
-12— 0.2 7081 38  OE 
10  1H  IF  - 

-02-6.8039893??- 
01  0.17246936E 
-11  0.70977379E 
10  2H  200 

-02-0.18 02110BE- 
02  0.42789288? 
-11-0. 70438934E 
100  000  000 
-03-0.74653373E- 
01  0.25030714F 
-13  0.56098904E 
IF  100  000 

-03— 0.29304 17 PE- 
01  0.3048068 OE 
-II  0.23941633F 
IF  200  000 

-02-0.60493963?- 
01  0.25009372F 

-12  0.39376954? 

IF  300  000 

-02-0.9707754??- 
02  0.12579876E 
-11— 0.16533966E 
1H  100  000 

-02-0. 3837970 7E- 
01  0.34889532E 
-1?  0.397147Q3E 
1H  20C  000 

-02-0.12276323E- 
01  0,403357915 
-12  0. 1397301  OE 
1H  303  000 

-0 2- 0.21 7851? 66- 
01  0.35912768E 
-11-0. 6671714 3F 
1C  100  000 

-02-0.5289971 3E- 
01  0.40459521E 
-11  0.97453974? 

1C  IF  -100 

-02-0.57521241?- 
01  0. 36635056E 
-12  0*11 603369E 
10  1CL  100 

-02-0.668766<»l?- 
00  0. 40?8030*c 


0. 2441 3940E-10-0. 16417759?- 14 
0.51757175E-02-0.65*,9016E-05 
0.92844249?  01  \ 

300.000  3098.000  \ 

0.2646 06 05E-0Q-0.293y9967£- 13 
0.2144 1338E-01-0. 3 34530 71E- 04 
•0.45834674?  01 

3093. GOO  5000.000 
0.  0. 

0.  0. 

0. 

300.000  500G.000 

0. 366066 37E-10-0.25102520E-14 
0.41055545E-02-0.35061249E-05 
0.93349°57?  01 

300.000  5000.000 

0.15151434E- 09-0 .937589 OOF- 14 
0. 10914 R4RE- 01-0. 87 026993E-05 
0.14150663E  02 

300.000  6000.000 

0.13175298E-09-0. 82324460E- 14 
0.17231006E-01-0 . 14929146E-04 
0.12933122E  02 

300.000  5000.000 

0.30460208E-09-0.I9535992F-13 
0.156S0923E-01-9.1556R577E-04 
0.44399763E  01 

300.000  5000. COO 

0.13796524E-10-0 .10253639E-14 
-0.21300131 E- 04  0.54205287E-D7 
0.41675764E  01 
300.000  5000.000 

0.55130022E-10-0.38?17«2BE-14 
0.1956 63 £7E- 02  0.94322448E-06 
0.79992363E  01 

300.000  5000.000 

0. 114 9 1911?- 09-0. 3 05364 31E- 14 
0.10721 062E- 01-0 .92064150?- 05 
0.12«?4042E  02 

300.000  5000.000 

Q.13551042E-09-0.1 3066945F-13 
0. 24 3? 78 95E- 01-0. 27 00351 IF- 04 
0.1301 3334?  02 

300.000  5000.000 

0.54142146E-10-0.20838332E-14 
0.2 80 265 19?- 03-0.1 3456768E-05 
0.13654962E  01 

300.000  5000.000 

0. 1 95405 76r-o°-0. 118734  OIF- 13 
-C. 100981 63 E- 02  0.40120907E-05 
0.52454285F  00 

300.000  5000.030 

0.7  75coqcqe-09--0.244468?5£-i3 
0.49373668E-03  0.33449322E-05 
0.22520966E  01 

700.000  5000.000 

0. 9591 933PE- 10-0. 64847932E- 14 
-0.341*1 7 R3E- 02  9.79619190F-05 
0.29974053c  oi 

300.000  5003.000 

0.1 0C5  1031?- 09-0. 6601.4264?-  i4 
-0.1 1544529?- 02  0.21755603E-05 
0.31779324?  Oi 

330.000  5000.000 

0.1??57??6E-09-0.840?0°l?E-l4 

0.594?f.529?-0?-0.55620366F-05 
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0.?o353736E-06-Q.66517496E-t2  G.48034480E  04  0.6O647732F  01 
N05  J  6/61N  10  I?  100  OG  300.000  5000.000 

0.51906666e  01  0. 135242665-02-0. 73S42361E-06  0.14626364F-09-0.10097419F-13 
-0.9&758164E  04-0.62298 477F  00  0.3290‘2P70E  01  O.?4O45493E-O2-0.66i«58O3F-O5 
0.2652928 2E-08 -0.295 2 6615E-12-0. 915666455  04  0.91461J85F  01 
N02  J  5/64N  10  200  000  03  300.000  *000.000 

0.4624077 IE  01  0. 2526 0332F-0 2-0. 1060 949 8E-05  0.19879239E-09-0.13799384F-13 
0.22599900E  04  0.13324133E  01  0.34589236E  01  0.2064 7064E-02  0.66S66067E-05 
-0.95556725P-08  0.36155861E-11  0.28152265E  04  0.33116983E  01 
NO?-  J12/65N  10  2E  100  OG  300.000  5000.000 

0.507944225  01  0.20S60322F-02-0. 33S23762E-06  0.163C1079E-0«»-0. 117434145-1? 
—0.4503990 7E  05-0.16367650E  01  0.29474526E  01  0.51836832E-02  0 .24205126E-05 
-0.75758944E-08  0.74577493E-11-0.44317583E  05  O.1O052359F  02 
N02CL  J12/65N  10  2CL  100  05  300.000  5000.000 

0.72062138E  31  0.295458095-02-0. 1 2641260E-05  0.23758750E-09-0.16524849E-13 
-0.11366123E  04-0.99256667E  01  0.3C, ‘*022265  01  0.145‘*S930E-01-0.116459?0E-04 
0.25890139E— 08  0.64585481E-12  0. 766*-.“»034E  01  0.11618*9^  0? 

NC25  J12/C5N  10  25  i?0  OG  300.000  5000.000 

0.6863<*16SE  01  0.73654437F-02— 0. 14153297h-C7  «.26622227E-09-0 .1 3531606F-13 
-0.15621287E  05-0.93806218E  01  0.22424380E  01  0.14i-~?lSE-Cl-0.13344332E-04 
0.32719525E-08  0.59144703E-12-0. 143642055  05  0.14218556E  02 
N2  J  5/65N  20  00  00  OG  300.000  5000.000 

0.28963194E  01  0. 15154866E-02-0.57235277E-06  0.998C7353E-10-0.65223555E-14 
. -0.90535184E  03  0.61615143E  01  0.36743261E  01-0.12031500E-02  0.23240102E-05 
-C.63217559E-09-Q.22577253E-12-0. 10611583F  04  0.23580424E  01 
N2C  J  6/66N  2C  100  000  OG  300.000  5000.000 

0.59145719E  01  0. 17176878E-02-0.73057492E-06  0.13312907E-09-0.O6540216E-14 
0. 496.8894 7E  05-0.73560596E  01  0.28823173E  01  0.10361809E-01-0.10399571E-04 
0.385884605-06-0. 17324120F-12  0.50474679E  05  0.30410039E  01 
N2H4  J12/b5N  2H  400  000  OG  300.000  5000.000 

0.5094777CE  01  0.93256133E-02-0. 33626986E-05  0.56308304E-09-0.35859661E-13 
0.92996644E  04-0.35950552E  01  0.79303836E  00  Q.21768097E-01-0.13456754E-04 
-0.12698753E— 09  0.2586S213E-H  0.10379887E  05  0.1**248696E  02 
N20  J12/64N  20  100  000  OG  300.000  5000.000 

0.473066795  01  0.28258267E-02-0.1155B115E-05  0.21263683E-G9-0 .14564087E-13 
0.8161768 2E  04-0.17151073E  01  0.26139195E  01  0.86439616E-82-0.6811D624E-05 
0.22275377E-03— 0. 50650330F-13  0.37590123E  04  0. 922669625  01 
N204  J  5/64N  20  400  000  OG  300.000  5000.000 

0.10506637E  02  0.58723267E-02-0.24766296E-05  0.46556 024E-09-0.32402082E-13 
— 0.23639Q96E  04-0.26252230E  02  0.36662«66r  Oi  0.23451748E-01-0.16007297E-04 
0.1 1845 939E-0R  0.20001613E-11-0.50631797E  03  0.9?9-*3337E  01 
NA (S)  J  6/62N4  10  00  00  OF  300.000  370.930 

0.  0.  0.  0.  0. 

0.  0.  0.241185705  01  0.69751859E-03  0.10583331E-04 

— 0.7191673 OE-0 3-0 .5 322c 613 E-l 1—0. 33573157E  03-0.82157260E  01 
NA(L>  J  6/62NA  10  00  00  OL  370. °80  2000.000 

0.40097373E  01-0. 12533184E-02  0.42443918E-06  0.52331272E-09-0.18396602E-12 
-0.7R116472E  03-0.15366128E  02  0.45&73226E  01-0.25267108F-02  0 .148400 1 8E-06 
0.38590020E-10-0. 825 C 0645E-1 3-0.5 ' 421906E  03-0.13377804E  02 
KA  J  E/62N4  100  OCO  000  OG  300.000  5000.000 

0.2562 >07?F  01-0. 13563284E-03  9.1i29?708E-06-0.423C7732E-10  0 .67057055E-14 
0.1 2193732E  05  0.33557727F  01  0.248812265  01  0.85426102E-04-0.21514228E-06 
0.22671 337E-09-0. 35 125 266E-1 3  0.12215904E  05  0.42804839E  01 
NA*  J  3/65N4  IE  -100  OOP  OG  300.000  5000.000 

0.25CG00005  01  0.  0,  0.  0. 

0.7259<*-*?°5  05  0.3S374014E  01  0.250000005  01  0.  0. 

0.  0.  0.72599330E  05  0.35374014E  01 

NACL  J12/64N4  1CL  100  000  03  300.000  5000.000 

0.442829715  01  0.l56??24lE-03-0.28103383E-07  0.47163571 E-l 1-0 .?*83?557E-l5 
-C.2317090PF  05  0.22878194F  01  0.3/032286E  01  0.n9C76C3£-02-0.48924502E-05 
0.3463921  6E-08-0.  Q*357521  F-12— 0. 2 ’*0282766  05  0.576032435  01 
NAF  J  6/64NA  1 5  mi)  000  OG  300. COO  5000.  000 

0.43344945c  01  0. 25755040F-03-0. 766720625-07  0.14022?»1E-10-0‘.95933344E-15 
-0.36&23273E  05  0.12792543E  01  0.31803578E  01  0.44436924E-02-0 .69860535E- 05 
0.461343596-08-0. 512713575-11-0. 36?84??5E  05  0.68&34707E  01 
.NAH .  _  j  3/E2N4  .  1H  100  000  .  03  303.000  5000.  000 
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o. 381705796 

3.17633062= 

-0.39950795E 

NAO 

0.439241586 

0.37il89=i=E 

0.444791946 

KAO- 

0.433530086 

-0.15946268E 

0.438735156 

NAOH(S) 

0. 

0. 

0.3059979&E 

KfiOHtU 

0.10774143E 

-0.535033036 

0. 

NACH 

0.44705I33E 

-0.268981376 

0.222269656 

NA2 

0.449236596 

0.15135031= 

0.79239225= 

NA2CL2 

G.=R262001= 

-0.7107714== 

G.1C27/666E 

KA2F2 

0.9722877 7E 
—  0.10137  3996 
0.14392634E 
NE 

0.250000006 

-3.74537SCGE 

0. 

KE+ 

0.29285147= 

0.25016213= 

0„33693G7?E 

0 

0.254205466 

0.29235803E 

-0.1602S432E 

0+ 

0.25060486= 

0.18794705= 

0.32246539S 

C- 

U. 25437172c 
0.11430516= 
-0.13479173= 
CH 

0.29106427= 
0. 3935331 5= 
0.13713=7 >£ 
CH* 

0.2.-544509= 
0. 1575-3  5666 
0.18397588E- 
CH- 

0.23772416= 
-0.1 312423  7= 


01  0. 8564 7R0 OF -ft 3-0. 3 122681 56-0 
05  C.471C0285E  00  0.31203950=  0 
-08  0.  ’67261736-11  0.17=4005=6  g 
J12/67H4  1C  10  32  0! 

01  0.21220 6746-0 3- 9. 4=22 05S  3=-0 
34  0.23749263=  Ol  0.3442100/6  0 
-08-0.117204866-11  9.89C11477E  0 
J12/67KA  10  J  =  10  0 

01  0.2234i;672E-03-0. 4821247  27-a 
05  0.1000450=6  01  r.3«ri8&855=  0 
-08-0. 1127263=6-11— 0. 15752234E  O' 
J  3/66NA  10  1H  100  0 

0.  0. 

0.  0.697583566  0 

-06-0.228576326-09-0. 5 344 825 5E  0! 
J  2/66NA  .  10  1H  100  Ol 

02-0. 7 0452126 E -03  0. 
05-0.52256959E  02  0.10774143=  C( 
0.  -0*5350330 3E  O' 

J  3/S6NA  10  1H  100  Ol 

01  0. 192= 2365 £-02-0. 6 2 52 223 7=-0 I 
C5  0.231160816  01  0.37588137=  0 
-09  (J.39C74039E-12-0.26S459&7E  O’ 
J  6/62NA  200  000  000  01 

01  0.1 9571 6596-0 3  0.2266341 7E-0 
05  0. 20044163E  01  0.431975146  0 
-39-0. 20 3 7535 3E-1 2  0.15220415=  C 
J12,’£4N4  ZCL  230  000  Cl 

01  0.161847&3E-03-C.81608743E-D 
05-0.170492566  02  0.79533=576  0 
-07-0. 28=4 4594E -11-0. 73725539=  0 
•J  6/&4NA  2F  200  000  O' 

01  P. 3041 3632E -03-0. 12 36747 3£-0i 
3S-C.19423el9E  02  0.69101547=  C 
-07-C. 40«60313c-l 1-0. 1 013430 OE  01 
6  5'66N=  100  000  000  Ol 

01  0.  '  0. 

03  0. 3342043ac  01  0.25000000E  0 
2.  -0*74537493=  01 

l_12/66N=  xE  -ICO  000  01 

Ql-C. 41229 3296-0 3  C.16341709E-0! 
06  Q.241E5397E  01  C.2100t>4OF6  0 
-C 8-0 .53291 304 f-1 2  C.25or95?5E  Oi 
j  e/=?o  too  ooo  oco  ot 

01  -0. 2755061=6-54-0 .31 328 03 26-0  i 
05  0.492030806  01  0.29464237=  0: 
-0£  0.336G6964F-12  0.2914764.=  0s 
L12/660  iE  -100  OOi  0( 

01-0. 14464 24 9E -04  0.1244604=^-01 
06  0.43479741=  01  0 . 24 c?47=4=  V 
-10-0.12376517= -l 3  0.1375490?=  O: 
J  6/6=0  if  100  000  !}! 

Cl -G. =325? 7006-04  0.25: 1961 7= -Si 
05  0.45202538=  01  0.25116796=  ft; 

-05  0,366f 3-S4E-12  0.1142843:6  o* 

j  3/660  1H  100  SOS  91 

Cl  0.95531650E-0 3-0. 1944170 2= -Oi 
04  0.54423445E  Oi  0,3«375°43E  Oi 
“03-0. 22  =  710946-12  0.3541232 0< 
J  2/660  IH  1=  -100  O: 

01  0.1 5025381  =  -0  2-0. 494! 1 16  If -01 
06  0, 6007640= f  01  0.254473657  0! 
-08-0. 94577 4fl2E-l 2  0.15736^966  Of 
J  3/660  1H  IF  100  0? 

01  0. 593236746-07-0, 2ll22064=-0t 
0=  0.426258686  01  0.24654504=  31 


0. 5*5024716-10-0. 495139?4=- 
0.1399&217E-02  C,2?1412?4£- 
0.42813959=  t‘i 

300.000  5000. Dili 

0,797=18216-15-0,517359596- 
3.41f.1/24l£“fl2“0  .63116368E- 
3.69371625E  01 

300.000  5009.000 

0.857208626-11-0.560=4334=- 
0.421 172826-02-0. 631G4646E- 
0.565537256  .01 

300.000  592.250 

0.  0. 

0.13845689E-0 1-0. 114969126- 
-0.331=0*096  02 

592.250  5900.000 

0.  0. 

-9.7Q45212C.E-03  0. 
-0.52?=-6°89£  02 

300.000  5000.000 

0.95321167E-10-0.557223506- 
0.417935876-02-9.26=980116- 
0.59552=24=  D1 

30u.DOC  5COO.OOO 
-0. 10132=646-11  0.139&5?52=- 
0.913=79576-03-0.113338786- 
0.2*326=746  01 

300.000  5000.009 

0.152581816-10-0.105589946- 
0. 9 3962360E-02-0. 138171166- 
-0.31534799E  Oi 

300.000  5000.000 

0.240050016-10-0,164991687- 
0.124678126-01-0.202639846- 
-0.604248226  01 

300.000  5000.000 

0.  0. 

0.  0. 

0.334204236  01 

300.000  5000.909 

-0.295548516-10  0.290569176- 
0. 324 1642=6- 02-0. 562658816- 
0.630=86786  01 

390.000  =000.000 
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